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VERSION  IDENTIFICATION 

This  document  describes  the  Ada  Compiler  Validation  Capability 
(ACVC),  Version  1.10.  This  version  consists  of  3719  tests  in  Ul82  test 
files.  Also,  there  are  three  units  in  four  files  zind  three  tests  in  three 
files  which  support  the  running  of  the  ACVC  tests;  one  data  file 
containing  macro  definitions;  one  program  in  one  file  for  making  the  macro 
substitutions;  and  five  programs  in  165  files  which  are  used  to  aid  in  the 
validation  process.  The  differences  between  Version  1.9  and  1.10  are 
detailed  in  sections  2.0  throu^  4.0. 


2  TEST  MODIFICATIONS 

In  Version  1.10  of  the  ACVC,  384  tests  were  modified  from  the 
corresponding  tests  in  Version  1.9.  Modifications  have  been  made: 

a)  to  correct  teats  that  were  found  to  be  Incorrect  in  previous 
versions  of  the  ACVC, 

b)  to  strengthen  the  tests  by  making  the  tests  more  comprehensive 
or  by  Incorporating  more  cases  to  check!  and 

c)  to  bring  test  code  into  conformance  with  the  coding  standards.  — 

The  following  tests  have  been  modified  from  Version  1.9!  S, : 


A2 8004a. ADA 
AE3101A.ADA 
B24204B.ADA 
B28001S.ADA 
B2A003B.ADA 
B37201A.ADA 
B39004L.ADA 
B59001A.ADA 
B67001C.ADA 
B91001H.ADA 
B97101E.ADA 
BC3604A.ADA 
C32112B.ADA 
C 3 4007 A. ADA 
C34007P.ADA 
C35502F.TST 
C35503C.ADA 
C35503G.ADA 
C355030.ADA 
C35507E.ADA 


A35902C.ADA 

B22003A.ADA 

B24204C.ADA 

B28001T.ADA 

B2A003C.ADA 

B37312B,ADA 

B44001A.ADA 

B64001A.ADA 

B67001D.ADA 

B91003B.ADA 

B97102C.ADA 

C32001B.ADA 

C32113A.ADA 

C34007D.ADA 

C34007S.ADA 

C35502K.ADA 

C35503D.TST 

C35503H.ADA 

C35503P.ADA 

C35507G.ADA 


A74106C.ADA 

B23003F.TST 

B28001J.ADA 

B28003A.ADA 

B33301A.ADA 

B39004G.ADA 

B49006A.ADA 

B67001A.ADA 

B85013C.ADA 

B9500U.ADA 

B97102E.ADA 

C32111A.ADA 

C32115A.ADA 

C34007G.ADA 

C34012A.ADA 

C35502N.DEP 

C35503E.ADA 

C35503K.ADA 

C35505C.ADA 

C35507H.ADA 


ADI  A0 1  A.  i 
B24204A./ 
B28001R.i 
B2A003A./ 
B36001A./ 
B39004J./ 
B49009A.i 
B67001B./ 
B86001B.J 
B97101A.i 
BC3105A.i 
C32112A.i 
C34004A.i 
C34007M.i 
C35102A.i 
C35502P.i 
C35503F.: 
C35503L.i 
C35507C.i 
C35507I.1 
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C35507J.DEP 

C35508E.ADA 

C355080.ADA 

C35802Y.DEP 

C35A06N.ADA 

C37206A.ADA 

C37213J.ADA 

C37215H.ADA 

C41308C.ADA 

C42007G.ADA 

C45332A.ADA 

C45532N.DEP 

G45621I.DEP 

C45621M.DEP 

C45621Q.DEP 

C45621U.DEP 

C45621Y.DEP 

C47008A.ADA 

C52104L.ADA 

C64103F.ADA 

C64104J.ADA 

C64109I.ADA 

C85018B.ADA 

C94002G.ADA 

CC1221A.ADA 

CE2102A.ADA 

CE2102E.ADA 

CE2102I.ADA 

CE2103B.TST 

CE2104D.ADA 

CE2106B.ADA 

CE2107D.ADA 

CE2107H.ADA 

CE2108C.ADA 

CE2109C.ADA 

CE2111A.ADA 

CE2111E.ADA 

CE2115B.ADA 

CE2201F.ADA 

CE2204A.ADA 

CE2401C.ADA 

CE2402A.ADA 

CE2407A.ADA 

CE2411A.ADA 

CE3102B.TST 

CE3108A.ADA 

CE3111A.ADA 

CE3111E.ADA 

CE3114B.ADA 


C35507K.ADA 

C35508G.ADA 

C35508P.ADA 

C35802Z.DEP 

C36204B.ADA 

C37207A.ADA 

C37215C.ADA 

C38102C.ADA 

C41320A.ADA 

C45242B.ADA 

C45532B.DEP 

C45614C.DEP 

C45621J.DEP 

C45621N.DEP 

C45621R.DEP 

C45621V.DEP 

C45621Z.DEP 

C47009A.ADA 

C54A24B.ADA 

C64104A.ADA 

C64104K.ADA 

C64109J.ADA 

C87B04B.ADA 

C96001A.ADA 

CCI3IIA.ADA 

CE2102B.ADA 

CE2102F.ADA 

CE2102J.ADA 

CE2104A.ADA 

CE2105A.ADA 

CE2107A.ADA 

CE2107E.ADA 

CE2 1071. ADA 

CE2108D.ADA 

CE2110A.ADA 

CE2111B.ADA 

CE2111G.ADA 

CE2201A.ADA 

CE2201G.ADA 

CE2208B.ADA 

CE2401E.ADA 

CE2404A.ADA 

CE2408A.ADA 

CE3002B.TST 

CE3103A.ADA 

CE3108B.ADA 

CE3111B.ADA 

CE3n2A.ADA 

CE3115A.ADA 


C35507M.DEP 

C35508H.ADA 

C35703A.ADA 

C35904A.ADA 

C36204C.ADA 

C37209B.ADA 

C37215E.ADA 

C39005A.ADA 

C41402A.ADA 

C45252B.ADA 

C45532F.DEP 

C45621G.DEP 

C45621K.DEP 

C456210.DEP 

C45621S.DEP 

C45621W.DEP 

C46014A.ADA 

C47009B.ADA 

C64103B.ADA 

C64104H.ADA 

C641040.ADA 

C64109K.ADA 

C87B06A.ADA 

C97301B.ADA 

CCI3IIB.ADA 

CE2102C.TST 

CE2102G.ADA 

CE2102K.ADA 

CE2104B.ADA 

CE2105B.ADA 

CE2107B.ADA 

CE2107F.ADA 

CE2108A.ADA 

CE2109A.ADA 

CE2110B.ADA 

CE2111C.ADA 

CE2111H.ADA 

CE2201B.ADA 

CE2201M.ADA 

CE2401A.ADA 

CE2401F.ADA 

CE2405B.ADA 

CE2409A.ADA 

CE3002C.TST 

CE3104A.ADA 

CE3109A.ADA 

CE3111C.ADA 

CE3112B.ADA 

CE3206A.ADA 


C35507N.DEP 

C35508J.DEP 

C35711B.ADA 

C35904B.ADA 

C37107A.ADA 

C37213H.ADA 

C37215G.ADA 

C41307D.ADA 

C42007F.ADA 

C45273A.ADA 

C45532J.DEP 

C45621H.DEP 

C45621L.DEP 

C45621P.DEP 

C45621T.DEP 

C45621X.DEP 

C47005A.ADA 

C4A012B.ADA 

C64103E.ADA 

C64104I.ADA 

C64109H.ADA 

C64109L.ADA 

C87B19A.ADA 

C99004A.ADA 

CC3603A.ADA 

CE2102D.ADA 

CE2102H.TST 

CE2103A.TST 

CE2104C.ADA 

CE2106A.ADA 

CE2107C.ADA 

CE2107G.ADA 

CE2108B.ADA 

CE2109B.ADA 

CE2110C.ADA 

CE2111D.ADA 

CE2115A.ADA 

CE2201C.ADA 

CE2202A.ADA 

CE2401B.ADA 

CE2401H.ADA 

CE2406A.ADA 

CE2410A.ADA 

CE3102A.ADA 

CE3107A.TST 

CE3110A.ADA 

CE3111D.ADA 

CE3114A.ADA 

CE3208A.ADA 


CE330U.ADA 

CE3402A.ADA 

CE3403A.ADA 

CE3403E.ADA 

CE3404C.ADA 

CE3406A.ADA 

CE3407A.ADA 

CE3408B.ADA 

CE3409C.ADA 

CE3410B.ADA 

CE3411A.ADA 

CE3413C.ADA 

CE3602C.ADA 

CE3605A.ADA 

CE3605E.ADA 

CE3704A.ADA 

CE3704E.ADA 

CE37040.ADA 

CE3706G.ADA 

CE3804A.ADA 

CE380UE.ADA 

CE3804K.ADA 

CE3806A.ADA 

CE3809A.ADA 

CE3905A.ADA 

CE3906A.ADA 

CE3906E.ADA 


CE3302A.ADA 

CE3402C.ADA 

CE3403B.ADA 

CE3403F.ADA 

CE3405A.ADA 

CE3406B.ADA 

CE3407B.ADA 

CE3408C.ADA 

CE3409D.ADA 

CE3410C.ADA 

CE341 1C. ADA 

CE3601A.ADA 

CE3602D.ADA 

CE3605B.ADA 

CE3606A.ADA 

CE3704B.ADA 

CE3704F.ADA 

CE3706C.ADA 

CE3707A.ADA 

CE3804B.ADA 

CE3804F.ADA 

CE3804M.ADA 

CE3806C.ADA 

CE3809B.ADA 

CE3905B.ADA 

CE3906B.ADA 

CE3906F.ADA 


CE3303A.ADA 

CE3402D.ADA 

CE3403C.ADA 

CE3404A.ADA 

CE3405C.ADA 

CE3406C.ADA 

CE3407C.ADA 

CE3409A.ADA 

CE3409E.ADA 

CE3410D.ADA 

CE3412A.ADA 

CE3602A.ADA 

CE3603A.ADA 

CE3605C.ADA 

CE3606B.ADA 

CE3704C.ADA 

CE3704M.ADA 

CE3706D.ADA 

CE3708A.ADA 

CE3804C.ADA 

CE3804G.ADA 

CE3805A.ADA 

CE3806D.ADA 

CE3810A.ADA 

CE3905C.ADA 

CE3906C.ADA 

CE3908A.ADA 


CE3305A.ADA 

CE3402E.ADA 

CE3403D.ADA 

CE3404B.ADA 

CE3405D.ADA 

CE3406D.ADA 

CE3408A.ADA 

CE3409B.ADA 

CE3410A.ADA 

CE3410E.ADA 

CE3413A.ADA 

CE3602B.ADA 

CE3604A.ADA 

CE3605D.ADA 

CE3701A.ADA 

CE3704D.ADA 

CE3704N.ADA 

CE3706F.ADA 

CE3801A.ADA 

CE3804D.ADA 

CE3804I.ADA 

CE3805B.ADA 

CE3806E.ADA 

CE3901A.ADA 

CE3905L.ADA 

CE3906D.ADA 

E28005C.ADA 


In  addition,  the  following  support  files  and  tests  for  support  files 
were  modified  for  Version  1.10: 


MACRO. DFS  REPSPEC.ADA  REPBODY.ADA  CZ1101A.ADA 

CZ1102.ADA 
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3  TEST  DELETIONS 


The  following  26  testa  appear  in  ACVC  Version  1.9,  but  not  in  ACVC 
Version  1.10.  Several  of  the  deleted  tests  were  renamed  to  new  test  names 
in  ACVC  1.10  to  conform  to  the  naming  conventions  provided  by  the 
Implementer 's  Guide  or  to  reflect  a  change  in  test  class. 


A37312A.ADA 

B34001S.ADA 

BC10AGA.ADA 

C910BDA.ADA 

CE3203A.ADA 

CE3405B.ADA 

E24101A.TST 


A41307A.ADA 

B86001C.DEP 

C35A03E.ADA 

C910BDB.ADA 

CE3301B.ADA 

CE3409F.ADA 

E66001D.ADA 


A41307C.ADA 

B86001D.TST 

C35A03R.ADA 

C950CHC.ADA 

CE3301C.ADA 

CE3410F.ADA 


B33006B.ADA 

B97102A.ADA 

C900ACA.ADA 

CE2210A.ADA 

CE3402B.ADA 

CE3412C.ADA 


4  NEW  TESTS 

The  following  623  tests  have  been  added  to  Version  1.10  of  the  ACVC  Test 
Suite.  A  test  is  considered  "new"  if  the  test  name  did  not  exist  in  ACVC 
Version  1.9.  Several  of  the  new  teats  were  renamed  from  former  tests  in 
ACVC  Version  1.9  to  conform  to  the  naming  conventions  provided  by  the 
Implementer 'a  Guide  or  to  reflect  a  change  in  test  class. 


A98001A.ADA 

AD1C04D.DEP 

AD3015F.DEP 

AD7005A.ADA 

AD7102A.ADA 

B22003B.ADA 

B2A003D.ADA 

B33301B.ADA 

B34005K.ADA 

B34006B.ADA 

B34014B.ADA 

B34014K.ADA 

B3401US.ADA 

B37201B.ADA 

B64001B.AOA 

B67001I.ADA 

B86001C.ADA 

B86001G.ADA 

B86001K.ADA 

B860010.ADA 

B86001S.ADA 

B86001W.DEP 

B91003E.ADA 

B97101G.ADA 

BD5001A.ADA 


AD1009M.DEP 

AD3014C.DEP 

AD3015H.DEP 

AD7006A.ADA 

AD7103A.ADA 

B24204D.ADA 

B2A003E.ADA 

B34005B.ADA 

B34005N.ADA 

B34006E.ADA 

B34014D.ADA 

B34014M.ADA 

B34014V.ADA 

B37212B.ADA 

B64110A.ADA 

B67001J.ADA 

B86001D.ADA 

B86001H.ADA 

B86001L.ADA 

B86001P.ADA 

B86001T.DEP 

B86001X.TST 

B95001C.ADA 

B97101H.ADA 

BD5002A.ADA 


ADI  009  V. DEP 

AD3014F.DEP 

AD3015K.DEP 

AD7101A.ADA 

AD7103C.ADA 

B24204E.ADA 

B2A003F.ADA 

B34005E.ADA 

B34005Q.ADA 

B34006H.ADA 

B34014F.ADA 

B340140.ADA 

B34014X.ADA 

B41307B.ADA 

B66001D.ADA 

B67001K.ADA 

B86001E.ADA 

B86001I.ADA 

B86001M.ADA 

B86001Q.ADA 

B86001U.DEP 

B86001Y.TST 

B95069D.ADA 

BC3102C.ADA 

BD5002B.ADA 


AD1009W.DEP 

AD3015C.DBP 

AD7001B.ADA 

AD7101C.ADA 

AD7104A.ADA 

B24204F.ADA 

B33002A.ADA 

B34005H.ADA 

B34005T.ADA 

B34006K.ADA 

B34014I.ADA 

B34014Q.ADA 

B34014Z.ADA 

B44001B.ADA 

B67001H.ADA 

B85013D.ADA 

B86001F.ADA 

B86001J.ADA 

B86001N.ADA 

B86001R.ADA 

B86001V.DEP 

B86001Z.TST 

B95069E.ADA 

BC3123C.ADA 

BD5002C.ADA 


BD5002D.ADA 

BD5006B.ADA 

BD5008A.ADA 

BD5103A.ADA 

C32115B.ADA 

C3^005D.ADA 

C3^0O5J.ADA 

C34006A.ADA 

C34009A.ADA 

C34014G.ADA 

C34014N.ADA 

C34014U.ADA 

C35505F.ADA 

C35A06R.ADA 

C37312A.ADA 

C91004B.ADA 

C98001C.ADA 

CC1223A.ADA 

CC3125C.ADA 

CC 3220 A. ADA 

CC3606A.ADA 

CD1009D.DEP 

CD1009H.DEP 

CD1009L.DEP 

CD1009Q.DEP 

CD1009U.DEP 

CD1C03A.DEP 

CD1C03F.DEP 

CD1C04A.DEP 

CD1C06A.DEP 

C01D01D.ADA 

CD2A21B.DEP 

CD2A22A.DEP 

CD2A22E.DEP 

CD2A22I.DEP 

CD2A23C.DEP 

CD2A24B.DEP 

CD2A24F.DEP 

CD2A24J.DEP 

CD2A31D.DEP 

CD2A32D.DEP 

CD2A32H.DEP 

CD2A41B.DEP 

CD2A42A.DEP 

CD2A42E.DEP 

CD2A42I.DEP 

CD2A51C.DEP 

CD2A52B.DEP 

CD2A52H.DBP 

CD2A53B.DEP 

CD2A54A.DEP 

CD2A54G.DEP 


BD5002E.ADA 

BD5006C.ADA 

BD5101A.ADA 

BD5104A.ADA 

C34004C.ADA 

C34005F.ADA 

C34005L.ADA 

C34006D.ADA 

C34014A.ADA 

C34014H.ADA 

C34014P.ADA 

C34014W.ADA 

C35A060.ADA 

C35A06S.ADA 

C41307A.ADA 

C91004C.ADA 

CC 122  IB. ADA 

CC3123A.ADA 

CC3125D.ADA 

CC322U.ADA 

CD1009A.DEP 

CD1009E.DEP 

CD1009I.DEP 

CD1009N.DEP 

CD1009R.DEP 

CD1009X.DEP 

CD1C03B.ADA 

CD1C03G.DEP 

CD1C04B.DEP 

CD1D01A.ADA 

CD1D02A.ADA 

CD2A21C.DEP 

CD2A22B.DEP 

CD2A22F.DEP 

CD2A22J.DEP 

CD2A23D.DEP 

CD2A24C.DEP 

CD2A24G.DEP 

CD2A31A.DEP 

CD2A32A.DEP 

CD2A32E.DEP 

CD2A32I.DEP 

CD2A41C.DEP 

CD2A42B.DEP 

CD2A42F.DEP 

CD2A42J.DEP 

CD2A51D.DEP 

CD2A52C.DEP 

CD2A52I.DEP 

CD2A53C.DEP 

CD2A54B.DEP 

CD2A54H.DEP 


BD5002F.ADA 

BD5006D.ADA 

BD5101B.ADA 

BE3301C.ADA 

C34005A.ADA 

C34005G.ADA 

C34005M.ADA 

C34006F.ADA 

C34014C.ADA 

C34014J.ADA 

C34014R.ADA 

C34014Y.ADA 

C35A06P.ADA 

C37213K.ADA 

C41307C.ADA 

C95040B.ADA 

CC1221C.ADA 

CC3123B.ADA 

CC3126A.ADA 

CC  3222  A.  ADA 

CD1009B.DEP 

CD1009F.DEP 

CD1009J.DEP 

CD10090.DEP 

CD1009S.DEP 

CD1009Y.DEP 

CD1C03C.TST 

CD1C03H.DEP 

CD1C04C.DEP 

CD1D01B.ADA 

CD1D03A.ADA 

CD2A21D.DEP 

CD2A22C.DEP 

CD2A220.DEP 

CD2A23A.DEP 

CD2A23E.DEP 

CD2A24D.DEP 

CD2A24H.DEP 

CD2A31B.DEP 

CD2A32B.DEP 

CD2A32F.DEP 

CD2A32J.DEP 

CD2A41D.DEP 

CD2A42C.DEP 

CD2A42G.DEP 

CD2A51A.DEP 

CD2A51E.DEP 

CD2A52D.DEP 

CD2A52J.DEP 

CD2A53D.DEP 

CD2A54C.DEP 

CD2A54I.DEP 


BD5005B.ADA 

BD5006J.ADA 

BD5102A.ADA 

C32111B.ADA 

C34005C.ADA 

C34005I.ADA 

C340050.ADA 

C34007J.ADA 

C34014E.ADA 

C34014L.ADA 

C34014T.ADA 

C35505E.ADA 

C35A06Q.ADA 

C37213L.ADA 

C41309A.ADA 

C98001B.ADA 

CC1221D.ADA 

CC3125B.ADA 

CC3127A.ADA 

CC3223A.ADA 

CD1009C.DEP 

CD1009G.DEP 

CD1009K.DEP 

CD1009P.DEP 

CD1009T.DEP 

CD1009Z.DBP 

CD1C03E.DEP 

CD1C03I.ADA 

CD1C04E.DEP 

CD1D01C.ADA 

CD2A21A.DEP 

CD2A21E.DEP 

CD2A22D.DEP 

CD2A22H.DEP 

CD2A23B.DEP 

CD2A24A.DEP 

CD2A24E.DEP 

CD2A24I.DEP 

CD2A31C.DEP 

CD2A32C.DEP 

CD2A32G.DEP 

CD2A41A.DEP 

CD2A41E.DEP 

CD2A42D.DEP 

CD2A42H.DEP 

CD2A51B.DEP 

CD2A52A.DEP 

CD2A52G.DEP 

CD2A53A.DEP 

CD2A53E.DEP 

CD2A54D.DEP 

CD2A54J.DEP 
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p 

CD2A61A.DEP 

CD2A61B.DEP 

CD2A61C.DEP 

CD2A61D.DEP 

p 

CD2A61E.DEP 

CD2A61I.DEP 

CD2A61F.DEP 

CD2A61J.DEP 

CD2A61G.DEP 

CD2A61K.DEP 

CD2A61H.DEP 

CD2A61L.DEP 

CD2A62A.DEP 

CD2A62B.DEP 

CD2A62C.DEP 

CD2A62D.DEP 

V-'! 

CD2A63A.DEP 

CD2A63B.DEP 

CD2A63C.DEP 

CD2A63D.DEP 

CD2A64A.DEP 

CD2A64B.DEP 

CD2A64C.DEP 

CD2A64D.DEP 

CD2A65A.DEP 

CD2A65B.DEP 

CD2A65C.DEP 

CD2A65D.DEP 

P 

CD2A66A.DEP 

CD2A71A.DEP 

CD2A66B.DEP 

CD2A71B.DEP 

CD2A66C.DEP 

CD2A71C.DEP 

CD2A66D.DEP 

CD2A71D.DEP 

C'-- 

CD2A72A.DEP 

CD2A72B.DEP 

CD2A72C.DEP 

CD2A72D.DEP 

CD2A73A.DEP 

CD2A73B.DEP 

CB2A73C.DEP 

CD2A73D.DEP 

*»’■> 

CD2A74A.DEP 

CD2A74B.DEP 

CD2A74C.DEP 

CD2A74D.DEP 

CD2A75A.DEP 

CD2A75B.DEP 

CD2A75C.DEP 

CD2A75D.DEP 

1 

CD2A76A.DEP 

CD2A81A.TST 

CD2A81E.TST 

CD2A76B.DEP 

CD2A81B.TST 

CD2A81F.TST 

CD2A76C.DEP 

CD2A81C.TST 

CD2A81G.TST 

CD2A76D.DEP 

CD2A81D.TST 

CD2A83A.TST 

CD2A83B.TST 

CD2A83C.TST 

CD2A83E.TST 

CD2A83F.TST 

CD2A83G.TST 

CD2A84B.DEP 

CD2A84C.DEP 

CD2A84D.DEP 

CD2A84E.DEP 

CD2A84F.DEP 

CD2A84G.DEP 

CD2A84H.DEP 

jO 

CD2A84I.DEP 

CD2A84K.DEP 

CD2A84L.DEP 

CD2A84M.DEP 

# 

r-.*^ 

CD2A84N.DEP 

CD2A87A.TST 

CD2A91A.TST 

CD2A91B.TST 

CD2A91C.TST 

CD2A91D.TST 

CD2A91E.TST 

CD2A95A.TST 

CD2B11B.DEP 

CD2B11C.DEP 

CDPBIID.DEP 

CD2B11E,DEP 

CD2B11F.DEP 

CD2B11G.DEP 

CD2B15B.DEP 

CD2B15C.DEP 

CD2B16A.DEP 

CD2C1U.DEP 

CD2C11B.DEP 

CD2C11C.DEP 

CD2C11D.DEP 

CD2C11E.DEP 

CD2DnA.DEP 

CD2D11B.DEP 

P 

CD2D13A.DEP 

CD3014A.DEP 

CD3014B.DEP 

CD3014D.DEP 

CD3014E.DEP 

CD3015A.DEP 

CD3015B.DEP 

CD3015D.DEP 

V-: 

CD3015E.DEP 

CD3015G.DEP 

CI)3015I.DEP 

CD3015J.DEP 

fc* 

CD3015L.DEP 

CD3021A.DEP 

CD4031A.DEP 

CD4041A.DEP 

V.*. 

V'. 

CD4051A.DEP 

CD4051B.DEP 

CD4051C.DEP 

CD4051D.DEP 

CD5003B.DEP 

CD5003C.DEP 

CD5003D.DEP 

CD5003E.DEP 

V"^ 

CD5003F.DEP 

CD5007B.DEP 

CD5003G .DEP 
CD5011A.DEP 

CD5003H.DEP 

CDSOIIB.DEP 

CD5003I.DEP 

CD5011C.DEP 

CD501 1D.DEP 

CD5011E.DEP 

CDSOIIF.DEP 

CD5011G.DEP 

CD5011H.DEP 

CD5011I.DEP 

CD5011K.DEP 

CD5011L.DEP 

'•ib- 

CD501 1M.DEP 

CD5011N.DEP 

CD501 10. DEP 

CD5011Q.DEP 

CD5011R.DEP 

CD5011S.DEP 

CD5012A.DEP 

CD5012B.DEP 

• 

Ir^r 

CD5012C.DEP 

CD5012D.DEP 

CD5012E.DEP 

CD5012F.DEP 

S>: 

CD5012O.DEP 

CD5012H.DEP 

CD5012I.DEP 

CD5012J.DEP 

(-V- 

CD5012L.DBP 

CD5012M.DEP 

CD5013A.DEP 

CD5013B.DEP 

CD5013C.DEP 

CD5013D.DEP 

CD5013E.DEP 

CD5013F.DEP 

:>:• 

CD5013G.DBP 

CD5013H.DEP 

CD5013I.DEP 

CD5013K.DEP 

iiCVi 

CD5013L.DEP 

CD5013M.DEP 

CD5013N.DEP 

CD50130.DEP  1 

C:D5013R.DEP 

CD5013S.DEP 

CD5014A.DEP 

CD5014B.DEP  1 

CD5014C.DEP 

CD5014D.DEP 

CD5014E.DEP 

CD5014F.DEP 

CD5014G.DEP 

CD5014H.DEP 

CD5014I.DEP 

CD5014J.DEP 

CD5014K.DEP 

CD5014L.DEP 

CD5014M.DEP 

CD5014N.DEP 

CD5014O.DEP 

CD5014R.DEP 

CD5014S.DEP 

CD5014T.DEP 

CD5014a.DEP 

CD5014V.DEP 

CD5014W.DEP 

CD5014X.DEP 

1  •'.. 

v’- 

y: 

CD5014Y.DEP 

CD7004C.TST 

CD5014Z.DEP 

CD7004D.TST 

CD70O3A.TST 

CD7005B.TST 

e. 

CD7004A.TST 

CD7005E.TST 

CD7006B.TST  CD7006E.TST  CD7007B.ADA  CD7007C.TST 
CD7101B.TST  CD7101D.ADA  CD7101E.DEP  CD7101F.DEP 
CD7101G.TST  CD7102B.TS’r  CT)7103B.TST  CD7103D.TST 
CD7104B.TST  CD7105A.ADA  CD7203B.ADA  CD7204B.ADA 
CD7204C.DEP  CD7205C.DEP  CD7205D.DEP  CE2102L.ADA 
CE2102M.ADA  CE2102N.ADA  CE2102O.ADA  CE2102P.ADA 
CE2102Q.ADA  CE2102R.ADA  CE2102S.ADA  CE2102T.ADA 
CE2102U.ADA  CE2102V.ADA  CE2102W.ADA  CE2102X.ADA 
CE2102Y.ADA  CE2103C.ADA  CE2103D.ADA  CE2107L.ADA 
CE2108E.ADA  CE2108F.ADA  CE2108G.ADA  CE2108H.ADA 
CE2110D.ADA  CE2111F.ADA  CEPIIII.ADA  CE2201H.ADA 
CE2201I.ADA  CE2201J.ADA  CE2201K.ADA  CE2201L.ADA 
CE2201M.ADA  CE2201N.ADA  CE2204C.ADA  CE2204D.ADA 
CE2205A.ADA  CE2401I.ADA  CE2401J.ADA  CE2401K.ADA 
CE2401L.ADA  CE2404B.ADA  CE2407B.ADA  CE2408B.ADA 
CE2409B.ADA  CE2410B.ADA  CE3102D.ADA  CE3102E.ADA 
CE3102F.ADA  CE3102G.ADA  CE3102H.ADA  CE3102I.ADA 
CE3102J.ADA  CE3102K.ADA  CE3104B.ADA  CE3104C.ADA 
CE3107B.ADA  CE3112C.ADA  CE3112D.ADA  CE3404D.ADA 
CE3411B.ADA  CE3604B.ADA  CE3801B.ADA  CE3804H.ADA 
CE3804J.ADA  CE3804L.ADA  CE3804N.ADA  CE38040.ADA 
CE3804P.ADA  CE3806B.ADA  CE3806F.ADA  CE3806G.ADA 
CE3806H.ADA  CE3810B.ADA  E24201A.TST  ED1D04A.DEP 
ED2A26A.DEP  ED2A56A.DEP  ED2A86A.TST  ED7004B.TST 
ED7005C.TST  ED7005D.TST  ED7006C.TST  ED7006D.TST 
EE3203A.ADA  EE3301B.ADA  EE3402B.ADA  EE3405B.ADA 
EE3409F.ADA  EE3410F.ADA  EE3412C.ADA 


In  addition,  one  new  support  unit  (in  one  file),  a  system  of  programs 
(in  165  files)  designed  to  aid  in  the  validation  process,  and  a  macro 
substitution  program  have  been  added  to  ACVC  Version  1.10; 

SPPRTI3.ADA  (The  specification  of  a  package  whose  body  must  be 
provided  by  the  user . ) 

AVAT  (One  package  in  files  DATSPEC.ADA  and  DATBODY.ADA; 

all  other  units  in  files  whose  names  have  the  form 
"AVATlit.ext"  where  each  %  is  replaced  by  a  letter 
or  digit  and  "ext"  is  either  "ADA"  or  "TST".) 

MACROSUB  A  program  which  modifies  the  "TST"  tests  inserting  the 

values  supplied  in  the  file  MACRO. DFS.  MACRO. DFS 
must  be  modified  to  reflect  the  implementation  dependent 
values  of  the  compiler. 


ACVC  1.10  Tape  Information 


1  INTRODUCTION 

The  ACVC  1.10  test  files  are  written  on  one  tape  volume  in  UNIX  TAR 
format.  One  of  the  files  on  this  tape  is  ACVC10.LST,  which  contains  the  names 
of  all  tests  in  the  ACVC  test  suite. 


2  TAPE  FORMAT 

This  tape  was  written  in  UNIX  TAR  format  at  1600  bpi  density,  20  records 
as  the  block  size.  An  example  of  the  directory  path  and  name  of  the  tests  is 

./boss/acvG 10/tests /at est3/a2/a2 100 1a. ada 


3  SPECIAL  NOTE 

Attention  should  be  given  to  four  ACVC  tests  that  contain  a  line 
feed — ASCII  control  character  LF — as  part  of  the  compiler  test.  UNIX  TAR  uses 
a  line  feed  to  designate  the  end  of  the  text  line.  The  following  tests 
contain  the  ASCII  control  character  LF  and  are  internally  documented  as  such. 

a22006c.ada  b25002b.ada 

a22006e.ada  b26005a.ada 


4  TEST  MODIFICATIONS 

The  Ada  tests  will  be  periodically  updated  and  corrected.  Their 
correctness  is  not  guaranteed  either  by  the  ACVC  Maintenance  Organization 
(AMO)  or  by  its  contractor.  Please  report  errors  in  writing  to 

Mr.  Steven  P.  Wilson 

ACVC  Maintenance  Organization 

ASD/SCOL 

Wright-Patterson  AFB,  OH  45433-6503 


You  will  receive  notification  of  changes  to  this  version  on  a  periodic 
basis.  Please  notify  the  AMO  of  any  change  of  address. 
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1  Scope. 

1.1  Identification. 

This  is  the  Ada  Compiler  Validation  Capability  (ACVC)  User's  Guide. 
This  document  details  the  use  of  Version  1.10  of  the  ACVC. 


1.2  Purpose. 

This  user's  guide  describes  the  ACVC  test  suite,  its  use,  and 
interpretation  of  the  test  results.  It  should  be  read  by  anyone  who  wishes 
to  use  the  ACVC  to  test  an  implementation  of  the  Ada  language. 


1.3  Introduction. 

The  primary  purpose  of  the  ACVC  Is  to  help  decide  whether  an  Ada 

translator/compiler  conforms  to  ANSI/HIL-STD-181SA,  the  Reference  Manual 
for  the  Ada  Programming  Language  (RM).  The  RH  is  also  known  as  the  Ada 
Standard.  The  ACVC  is  maintained  by  the  ACVC  Maintenance  Organization 
(AMO)  under  the  direction  of  the  Ada  Validation  Office  (AVO)  of  the  Air 
Force's  Ada  Joint  Program  Office  (AJPO).  The  three  main  components  of  the 
ACVC  are: 

.  An  implementers'  guide  that  describes  the  implementation 

implications  of  the  RM  and  the  conditions  that  are  checked  by  each 
validation  test  program. 

.  A  suite  of  validation  test  programs  that  are  submitted  to  a 

compiler. 

.  Validation  support  tools  that  assist  in  determining  system 

capabilities,  preparing  tests  for  compilation,  and  analyzing  the 
results  of  execution. 


2  References. 


ANSI/MIL-STD-1815A  (The  Reference  Manual  for  the  Ada  Programming 
Language),  22  January  1983. 

Ada  Compiler  Validation  Procedures  and  Guidelines,  Ada  Joint 


Ada  Compiler  ^ 
Program  office , 


Ada  Compiler  Validation  Capability  Implementers'  Guide,  SofTech, 
Inc . ,  1  December  1^86. 

ACVC  Version  1.10  Version  Description  Document,  SofTech,  Inc., 

1  December  198'^. 
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5.  ACVC  Test  Design  and  Coding  Standards ,  SofTech,  Inc., 
1  December  198d. 


3  Instruction  For  Use. 

3.1  Ada  Compiler  Validation  Capability  Implementers'  Guide. 

All  of  the  ACVC  test  programs  are  based  on  objectives  given  in  the  Ada 
Compiler  Validation  Capability  Implementers'  Guide  (AIG).  The  AIG 
basically  follows  the  RM.  However,  the  AIG  contains  additional  sections 
which  further  clarify  the  rules  of  the  language,  details  the  interpretation 
of  any  ambiguities  in  the  RM,  and  presents  objectives  and  guidelines  for 
the  tests. 


3.2  Validation  Test  Programs. 

The  ACVC  test  suite  is  composed  of  various  test  programs  designed  to 
ensure  that  a  compiler  correctly  conforms  to  all  aspects  of  the  RM.  The 
test  suite  also  attempts  to  ensure  that  the  implementation  does  not  add  any 
illegal  extentlons  to  the  language. 

The  goals  of  the  ACVC  include: 

Maximizing  the  amount  of  information  derived  from  a  validation 
attempt;  in  particular,  identifying  as  many  nonconformances  as 
possible. 

.  Minimizing  the  effort  needed  to  test  a  compiler;  in  particular, 
the  effort  needed  to  a)  adapt  the  tests  to  a  particular  compiler 
environment,  and  b)  determine  which  tests  passed  and  which 
failed. 

.  Minimizing  the  effort  needed  to  determine  if  a  test  is  correct 
(that  is,  if  it  uses  an  appropriate  algorithm  to  check  the 
objective)  when  failed  on  a  compiler. 

A  thorough  coverage  of  the  language  and  the  possible 
implementations  of  its  features. 


Making  the  tests  understandable  and  maintainable. 
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’  Tes'  Naming  ''onvent  ions . 

Tes'  r.a^es  ha-e  •  ne  i'rm  <'riame> .  < t vpe>  •  The  <name>  component  is 
'  ^poseo  't  '■even  •'  -.me  : r-.ar ac  * e r s .  The  interpretation  of  each  character 
•  s  nes-:’.  neO  Oevow,  -.nere  ’ne  tirst  column  indicates  the  character 
posi'i'in's)  an-i  'tie  second  column  gi-es  the  corresponding  meaning: 

"es'  . a ss 1 f 1 r a t ion  (letter)  ■  identifies  the  class  of  the 
'est  i.ee  ,  as  s  i  f  i  ^  a  r  i  ons  J  . 

A’G  -nap'er  '  nexane'- ima^  )  identifies  the  chapter  which 
-■-.■r,  rams  'ne  obiective  nemg  'ested. 

e'"  ’  ion  '  tiexadec  i ma . )  -  identifies  the  section  within  the 
above  'nap'er 

..  S  .b  sec’ion  '  a  1  pba  numer  i  c )  identifies  the  sub-section 

-I’nin  me  above  se'i’ion . 

Test  ob)eo':  .e  Me'iimal)  -  identifies  the  objective,  within 
'tie  above  sub- sec  '  i  on  .  being  tested. 

Sub- obrer t ive  (let'er)  -  indicates  a  sub-objective  of  the 

above  objective. 

d  '!'ompi  *a' ion  sequence  <  a i pha - numer  i c )  -  indicates  the 

'ompiiation  order  of  multiple  files  that  comprise  a  single 
'est  f  1  is  compiled  first).  This  position  is  present  only  if 
•ne  test  is  composed  of  multiple  files. 

3  Main  subprogram  indication  (character  'M')  -  indicates  which 

file  of  a  test  set  contains  the  main  procedure.  This  position 
IS  present  only  for  one  file  of  a  multi-file  test. 


The  <type>  component  is  a  t hr ee- char ac t er  extension  which  identifies 
me  type  of  'he  test  (see  Type  Extensions). 

Characters  2-"’  of  the  <name>  component  uniquely  Identify  every  test 
objective.  Each  individual  objective  has  only  a  single  classification  and 
'ype  designation  associated  with  it.  The  classification  and  type  of  a  test 
indicates  its  expected  compilation/execution  results. 


1.2. 1.1  Classifications. 

The  test  classifications  are  A,  B,  C,  D,  E,  and  L.  Tests  that  cocne 
under  classes  A,  C,  D,  and  B  are  also  considered  executable  tests. 


3. 2. 1.1.1  Class  A. 

Class  A  tests  ensure  acceptance  (compilation)  of  certain  language 
constructs  which  cannot  be  verified  at  run  time.  There  are  no  testing 
conditions  within  them.  These  tests  are  expected  to  execute  successfully  - 
they  simply  report  'PASSED'.  An  implementation  is  considered  to  have 
failed  any  test  for  which  it  does  not  indicate  otherwise. 
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3. 2. 1.1. 2  Class  B. 

Class  B  tests  check  that  illegal  constructs  are  caught  and  that  there 
are  no  illegal  extentions  to  the  language.  These  tests  are  expected  to 
fail  compilation.  They  are  graded  as  'PASSED'  if  all  of  the  indicated 
errors  in  the  test  are  caught  and  no  legal  constructs  are  rejected.  An 
implementation  is  considered  to  have  failed  any  test  for  vhich  an  error  is 
not  caught  or  a  legal  construct  is  rejected. 

Lines  containing  errors  vhich  must  be  caught  are  marked  ' —  ERROR:'. 
This  error  comment  may  also  include  a  very  brief  indication  of  vhat  makes 
the  construct  illegal.  Lines  containing  legal  constructs  vhich  must  be 
accepted  are  marked  ' —  OK.'. 

The  folloving  rules  apply  in  satisfying  the  pass  criteria: 

The  compiler  rejects  a  test  vhich  contains  only  a  single  error. 

The  compiler  displays  an  error  message  for  all  of  the  ' —  ERROR:' 

indications  in  a  test  vlth  multiple  errors. 

.  All  lines  marked  ' —  OK.'  are  accepted. 

.  Split  tests  can  be  created  (see  Modifying  Tests). 


3. 2. 1.1. 3  Class  C. 

Class  C  tests  check  the  run-time  system  and  ensure  that  verifiable 
constructs  are  Implemented  correctly.  These  tests  are  expected  to  execute. 
The  tests  vill  indicate  either  'PASSED',  'FAILED',  or  'NOT_APPLICABLE' 
based  on  the  conditions  tested.  An  implementation  is  considered  to  have 
failed  any  test  for  vhich  it  does  not  indicate  othervise. 


3.2. 1.1.4  Class  D. 

Class  D  tests  are  capacity  tests.  These  tests  are  expected  to  execute 
successfully  if  no  errors  are  reported  during  compilation.  If  an  error  is 
reported  during  compilation,  it  must  be  an  error  associated  vith  the 
capacity  being  tested,  in  vhich  case  the  test  is  considered  inapplicable. 
Othervise,  an  implementation  may  be  considered  to  have  failed  any  test  for 
vhich  it  does  not  indicate  differently;  such  failure  should  be  reported  to 
the  AVO  for  a  ruling. 


3.2. 1.1.5  Class  E. 

Class  E  tests  check  implementation-dependent  options  and  the 
resolution  of  ambiguities  in  the  RH.  These  tests  are  expected  to  execute 
successfully.  Tests  vhich  execute  print  comments  to  indicate  hov  the 
options  or  ambiguities  are  handled.  The  source  code  for  each  test  lists 
specific  pass/fail  criteria.  For  some  tests,  these  criteria  are  indicated 
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at  execution  time.  These  criteria  are  compared  to  the  comments  to  make  a 
grading  determination.  An  implementation  is  considered  to  have  failed  any 
test  for  which  it  does  not  indicate  otherwise. 


3. 2. 1.1. 6  Class  L. 

Class  L  tests  ensure  that  all  library  unit  dependencies  within  a 
program  are  satisfied  before  said  program  can  be  linked  and  executed,  and 

that  circularity  among  units  is  not  allowed.  These  tests  are  expected  to 

fail  at  link  time;  however,  failure  to  compile  may  be  acceptable  for  some 
implementations.  These  tests  are  graded  as  'PASSED'  if  they  do  not 

successfully  complete  the  link  phase.  Any  test  which  begins  execution  is 
graded  as  'FAILED'. 

For  tests  which  might  possibly  fail  at  compile  time,  the  lines 

containing  the  illegal  constructs  are  marked  ' —  ERROR:'. 

3. 2. 1.2  Type  Extensions. 

The  type  extensions  and  their  meanings  are: 

ADA  -  These  tests  check  the  standard  features  of  the  language  that 
must  be  implemented  by  all  compilers.  They  are  expected  to  be 
compiled/executed  unmodified  and  must  be  successfully  processed 
by  all  implementations. 

DEP  -  These  tests  involve  optional,  implementation-dependent  features 
of  the  language.  Each  test  concerned  with  supported  features 
must  be  successfully  processed  as  indicated  by  its 

classification.  Tests  concerned  with  unsupported  features  are 
considered  inapplicable,  provided  they  are  processed  as 

described  below: 

Class  B  tests  should  be  successfully  compiled. 

Executable  tests  must  be  rejected  at  compile  time  as 
described  in  the  test's  applicability  criteria. 

TST  -  These  tests  also  check  implementation-dependent  features  of  the 
language.  They  contain  macros  for  the  substitution  of  certain 
implementation-dependent  values  (see  Hacro  Substitutions). 
Generally,  each  of  these  tests  is  expected  to  be  successfully 
processed  as  indicated  by  its  classification.  However,  some  of 
the  tests  may  be  concerned  with  unsupported  features  and 
therefore  are  treated  as  described  for  DEP  tests. 


3.2.2  Coding  Standards. 

To  help  meet  the  goals  of  the  ACVC,  certain  coding  standards  are 
followed. 
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3. 2. 2.1  General. 

Some  general  test  writing  standards  include: 

Tests  are  written  using  the  basic  55-character  character-set  (26 
capital  letters,  10  digits,  and  19  punctuation  marks). 

Maximum  line  length  is  72  characters,  except  as  noted  in  certain 
OEP  and  TST  tests. 

Numeric  values  are  generally  in  the  range  (-128.. 127).  However, 
if  necessary,  they  can  be  within  the  range  (-2048. . 2047) ,  a 
maximum  of  12  bits. 

Tests  are  written  using  as  few  Ada  features  as  are  necessary  to 
write  a  self-checking  executable  test  that  is  not  too  difficult  to 
read  or  modify. 

To  help  ensure  a  thorough  coverage  of  the  language,  and  to  promote 
understandabili ty  and  maintainability,  many  objectives  are  divided  into 
sub-objectives,  with  some  checked  in  a  single  test  file  and  others  checked 
in  separate  test  files.  For  example,  if  a  test  objective  is  concerned  with 
some  property  of  scalar  types,  then  individual  subtests  check: 

INTEGER,  CHARACTER,  BOOLEAN,  and  a  user-defined  enumeration  type, 
all  in  one  test  file  since  we  expect  all  of  these  types  to  be 
implemented. 

.  FLOAT  and  a  user-defined  floating-point  type  in  a  separate  test 
file. 

.  A  fixed-point  type  in  another  separate  test  file. 

Sub-objectives  which  are  difficult  to  test  are  also  tested  in  separate 
tests  files. 


3. 2. 2. 2  Header  Format. 

The  following  header  is  placed  at  the  beginning  of  all  new  and 
modified  tests: 

—  filename. 

—  OBJECTIVE: 


—  SEPARATE  FILES: 


—  APPLICABILITY  CRITERIA: 
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—  PASS/FAIL  CRITERIA: 


—  MACRO  SUBSTITUTIONS: 


—  HISTORY: 

ccc  nun/dd/yy  comment  about  change. 


The  purpose  of  each  section  is: 

filename  -  identical  to  the  actual  name  of  the  file. 

objective  -  describes  the  test's  objective  and  explains 

the  exact  conditions  or  sub-objectives 
presently  being  tested. 

separate  files  -  identifies  all  of  the  component  files  of  a 

multiple  file  test,  with  a  brief  description 
of  each  file. 

applicability  criteria  -  details  under  what  conditions  the  test  can  be 

ruled  inapplicable. 

pass/fail  criteria  -  explains  hov  to  interpret  the  run-time 

results  for  grading  the  test. 

macro  substitution  -  Identifies  the  macros  in  the  test  which  must 

be  substituted  and  a  brief  description  of 
what  the  replacement  value  represents. 

history  -  details  who  has  made  changes  to  the  test, 

when,  and  what  those  changes  were. 

The  file  name,  objective  and  history  sections  are  always  present.  The 
separate  files,  applicability  criteria,  pass/fail  criteria  and  macro 
substitutions  sections  are  present  only  for  tests  which  have  such 
conditions. 


3. 2. 2. 3  Test  Body  Format. 


Note:  test  body  refers  to  the  code  which  is  compiled/executed  and  is 
not  necessarily  synonymous  with  an  Ada  unit  body. 

The  names  of  all  library  units  correspond  to  the  name  of  the  test  to 
which  they  are  associated. 

Class  B  tests  are  generally  library  procedures.  Other  units  are  used 
when  required  by  the  objective,  in  which  case  there  is  not  necessarily  a 
main  subprogram. 
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The  main  subprogram  of  all  executable  tests  is  a  procedure.  The  name 
of  this  procedure  is  identical  to  the  name  of  the  test. 


3. 2. 2. 3.1  Test  Initialization/Reporting  And  Test  Objective  Blocks. 

The  test  body  of  an  executable  test  has  the  following  logical 
execution  sequence: 

1.  Call  to  REPORT. TEST,  which  prints  the  test  identifier  and 
description. 

2.  Elaboration  of  objective-related  declarations. 

3.  Testing  of  the  objective  -  calls  to  REPORT. FAILED  and 
REPORT. NOT_APPLICABLE  as  appropriate. 

4.  Call  to  REPORT. RESULT,  which  prints  the  pass/fail  message. 

The  tests  generally  consist  of  a  single  procedure  with  the  objective  being 
tested  within  an  inner  DECLARE  block.  If  the  test  objective  is  divided 
into  multiple  sub-objectives,  each  sub-objective  is  tested  within  a 
separate  DECLARE  block.  For  objectives  which  require  packages  as  library 
units,  package  declarations  and  elaborations  are  arranged  to  result  in  the 
previously  described  execution  sequence. 


3. 2. 2. 3. 2  Ada  Unit  Bodies. 

The  format  of  the  statements  and  language  constructs  is  designed  to 
make  the  syntactic  and  semantic  structure  of  the  test  program  apparent.  In 
an  attempt  to  defeat  high-quality  optimizing  compilers,  which  may  execute 
or  remove  the  critical  portion  of  a  test  at  compile  time,  certain  coding 
practices  have  been  devised.  These  practices  include  calling  identity 
functions,  using  objects  in  statements  which  appear  to  have  no 
significance,  and  using  IP-THEN-ELSE  statements  instead  of  just  a  simple  IF 
statement . 


3.2.3  Macro  Substitutions. 

TST  type  tests  contain  macros  which  represent  implementation-dependent 
characteristics  of  the  language.  The  macros  are  given  as  identifiers  which 
begin  with  a  dollar  sign  ($).  Each  macro  must  be  replaced  with  an 
appropriate  textual  value  to  make  the  tests  suitable  for  compilation. 

The  substitutions  can  be  done  automatically  by  using  the  MACROSUBS 
program  distributed  with  the  ACVC.  This  program  will  request  the 
replacement  value  for  each  macro  and  then  edit  all  the  TST  tests  in  the 
suite  to  make  the  substitution. 

Appendix  A  contains  a  description  of  all  of  the  macros  used  in  the 
test  suite. 
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3.2.4  Processing  The  ACVC  Test  Programs. 

Processing  of  the  test  suite  consists  of: 

1.  Compiling  class  B  tests. 

2.  Compiling  and  linking  class  L  tests. 

3.  Compiling,  linking,  and  executing  class  A,  C,  D,  and  B  tests. 

It  is  recommended  that  the  suite  be  processed  by  chapter.  Generally,  the 
test  suite  is  processed  within  a  single  program  library  which  must  be 
initialized  as  described  below. 


3. 2. 4.1  Prerequisites. 

The  following  prerequisites  must  be  met  before  processing  the  test 
suite: 

1.  All  of  Ada  must  be  implemented  -  the  test  suite  attempts  to  cover 
the  entire  Ada  language. 

2.  The  support  package  REPORT  must  be  compiled,  checked  out,  and 
loaded  into  the  program  library  (see  Package  Report). 

3.  The  support  procedure  CHECKFILE  must  be  compiled,  checked  out,  and 
loaded  into  the  program  library  (see  Procedure  Checkfile). 

4.  The  support  package  SPPRT13  must  be  compiled  and  loaded  into  the 
program  library  (see  Package  Spprtl3). 


3. 2. 4. 2  Dependencies  Among  Tests. 

Test  files  which  use  character  position  8  (compilation  sequence)  in 
their  names  have  an  inherent  dependency.  These  test  files  must  be  compiled 
successively  and,  for  class  A,  C,  D,  E,  and  L  tests,  linked  together. 

Some  of  the  executable  file  I/O  tests  create  a  data  file  that  is  to  be 
used  by  a  subsequent  test.  In  these  instances,  the  tests  must  be  run  in 
sequence,  without  deleting  the  data  file  that  was  created.  The  tests  which 
create  such  a  file,  and  the  tests  that  depend  on  that  file  are: 

CE2108A  must  be  followed  by  CE2108B. 

CE2108C  must  be  followed  by  CE2108D. 

CB3112A  must  be  followed  by  CE3112B. 
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3. 2. 4. 3  Test  Applicability. 

Certain  tests  in  the  suite  are  concerned  with  optional, 
implementation-dependent  features  of  the  language.  Hence,  some  of  these 
tests  may  not  be  applicable  to  all  implementations.  The  applicability  of 
each  test  is  based  on  the  criteria  given  in  the  test  file.  The  handling  of 
tests  concerned  with  unsupported  features  is  described  above  under  Type 
Extensions. 

For  executable  tests,  lines  containing  these  implementation-dependent 
features  are  marked  " —  NA  ■>  ERROR.".  If  an  implementation  does  not 
support  the  specified  feature,  then  these  constructs  must  be  rejected.  If 
the  constructs  so  indicated  are  rejected,  then  the  test  is  considered 
inapplicable  -  any  other  errors  reported  are  ignored.  If  the  constructs  so 
indicated  are  not  rejected,  then  the  test  remains  applicable  and  must 
execute  successfully. 

All  the  implementation-dependent  tests  are  compiled,  and  executed  if 
compiled  successfully,  during  a  validation  attempt  -  except  those  tests 
which  require  a  floating-point  DIGITS  value  that  exceeds  SYSTEM. HAX  DIGITS. 
All  results  for  a  particular  feature  must  be  consistent  (i.e.,  all  'PASSED' 
or  all  'NOT-APPLICABLE' ). 

Appendix  B  contains  the  test  applicability  criteria  for  all  the 
implementation-dependent  tests. 


3. 2. 4. 4  Test  Disputes. 

The  Certification  Body  has  defined  "dispute"  to  mean: 

For  the  purposes  of  validation,  a  dispute  is  constituted  by  any 
behavior  of  the  candidate  Ada  Implementation  that  is  not 
explicitly  permitted  by  the  code  of  the  ACVC  tests,  by  the 
documentation  from  the  AMO  that  accompanies  the  ACVC  tapes,  or  by 
other  documentation  provided  to  the  vendor  by  the  Ada  Validation 
Facility  (AVF). 

Disputes  must  be  brought  to  the  attention  of  the  AVF  as  soon  as  possible  so 
that  they  can  be  resolved  by  the  AVF  and  AVO.  A  dispute  related  to  a 
validation  attempt  should  be  sent  to  the  AVF  handling  the  validation. 
Other  disputes  of  ACVC  tests  can  be  sent  to  the  AMO. 


3. 2. 4. 5  Guidelines  For  Modifying  Tests. 

It  is  expected  that  some  tests  will  require  modifications  of  code, 
processing,  or  evaluation  in  order  to  compensate  for  legitimate 
implementation  behavior.  Modifications  are  made  with  the  approval  of  the 
AVO,  and  are  made  in  cases  where  legitimate  implementation  behavior 
prevents  the  successful  completion  of  an  (otherwise)  applicable  test. 
Examples  of  such  modifications  include: 
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Adding  a  length  clause  to  alter  the  default  size  of  a  collection. 
Creating  split  tests. 

Confirming  that  messages  produced  by  an  executable  test 
demonstrate  conforming  behavior  that  wasn't  anticipated  by  the 
test  (such  as  raising  one  exception  instead  of  another). 

No  original  test  can  be  modified;  copies  must  be  made.  It  is 
recommended  that  the  copies  be  named  by  appending  an  alpha-numeric 
character  to  the  <name>  portion  of  the  original  test  file.  If  possible, 
the  line  numbers  of  the  original  test  should  remain  intact. 

Split  tests  can  be  created  for  class  B  and  L  tests.  Split  tests  have 
certain  lines  commented  out  to  facilitate  catching  any  previously 
undetected  errors.  Split  tests  can  also  be  used  to  ensure  that  all  legal 
constructs  are  passed. 


3.3  Validation  Support  Tools. 

The  following  validation  tools  are  used  to  a)  provide  additional 
information  about  an  implementation,  and  b)  reduce  the  effort  required  to 
perform  a  validation  attempt. 


3.3.1  The  Ada  Validation  Assistant  Tool. 

3. 3. 1.1  Description. 

The  Ada  Validation  Assistant  Tool  (AVAT)  is  a  set  of  five  programs 
that  test  implementation-dependent  features  and  produce  lists  of  possibly 
inapplicable  tests.  Although  it  is  not  part  of  the  test  suite,  the  AVAT 
system  can  assist  in  the  validation  process  by  providing  information  about 
the  implementation. 

AVAT  attempts  to  determine  whether  certain  features  of  the  language 
are  supported  by  the  implementation.  These  features  include  predefined 
types  other  than  those  required  by  the  language  and  certain  forms  of 
representation  clauses.  AVAT  also  attempts  to  measure  the  degree  to  which 
some  features  are  supported,  including  fixed-  and  floating-point  precision, 
and  compilation  of  generic  specifications  and  bodies  in  separate  files. 
Finally,  AVAT  reports  the  values  of  many  implementation-dependent  values, 
including  integer  type  bounds,  real  type  accuracies  and  ranges,  and  the 
constants  declared  in  the  package  SYSTEM. 

For  the  features  of  the  language  that  are  not  (fully)  supported,  the 
AVAT  programs  report  lists  of  ACVC  tests  that  might  be  inapplicable  due  to 
the  lack  of  (full)  support.  These  lists  may  not  be  complete;  that  is, 
there  may  be  unlisted  tests  which  are  inapplicable  due  to  an 
implementation's  lack  of  support  for  a  particular  feature.  Likewise,  the 
lists  may  not  be  entirely  accurate  for  a  particular  implementation;  that 
Is,  due  to  implementation  decisions  not  anticipated  by  AVAT's  designers,  a 
test  may  be  listed  when  it  is  actually  applicable  to  the  implementation. 
The  final  determination  of  the  applicability  of  a  test  depends  on  the 
specific  criteria  given  in  the  text  of  the  test,  the  agreement  of  test 
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results  with  the  vendor's  documentation,  and,  in  some  cases,  the  vendor's 
explanation  of  unusual  test  results.  It  is  the  vendor's  responsibility  to 
reconcile  any  inconsistencies;  for  validation  purposes,  justification  of 
inconsistencies  must  be  provided  to  the  AVF  in  the  form  of  a  test  dispute. 

Each  AVAT  program  consists  of  a  data  collection  and  reporting  package 
(common  to  the  five  AVAT  programs),  a  number  of  auxiliary  library 
procedures,  and  a  main  procedure  which  imports  the  package  and  invokes  the 
auxiliary  procedures.  Some  of  the  auxiliary  procedures  simply  provide 
section  headers  for  the  report,  and  others  provide  the  values  of 
system-defined  constants.  The  remaining  procedures  (the  majority)  are  used 
to  determine  whether  specific  language  features  are  supported.  There  are 
two  or  more  versions  of  each  such  procedure.  For  example,  the  procedure 
which  tests  for  support  of  'SIZE  clauses  for  integer  types  occuts  in  four 
versions.  The  first  version  contains  no  'SIZE  clauses;  if  it  is  executed, 
it  stores  (in  a  structure  declared  in  the  package)  a  message  that  'SIZE 
clauses  are  not  supported  for  integer  types,  and  a  list  of  ACVC  tests  that 
are  therefore  potentially  inapplicable.  The  second  version  contains  a 
'SIZE  clause  specifying  the  implementation's  default  size;  if  it  executes, 
it  stores  a  message  that  only  default  size  specifications  are  accepted,  and 
a  corresponding  list  of  potentially  inapplicable  ACVC  tests.  Likewise,  the 
third  and  fourth  versions  contain  intermediate  and  minimal  size 
specifications  and  store  corresponding  messages  and  lists  of  tests.  The 
four  versions  of  the  procedure  must  be  submitted  to  the  compiler  in  the 
given  order.  The  last  one  to  successfully  compile  will  be  the  version 
invoked  when  the  main  program  executes;  thus  the  appropriate  message  and 
test  list  will  be  reported. 

The  AVAT  programs  are  organized  as  follows: 

COMMON  PACKAGE  DATACOLLECTION 

This  package  collects  and  reports  the  messages  and  lists  of 
potentially  Inapplicable  tests. 

Specification  DATSPEC.ADA 

Body  DATBODY.ADA 

PART  ONE  AVATNUM 

This  program  reports  on  numeric  type  declarations  and 
characteristics. 

Main  procedure  AVATNUM. ADA 

Auxiliary  procedUi.es  AVATOOO.ADA  ..  AVAT006.ADA 

AVAT007.TST 

AVAT008.ADA  ..  AVAT012.ADA 

AVAT013.TST 

AVAT014.ADA 

AVAT015.TST 

AVAT016.ADA  ..  AVAT026.ADA 
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PART  TWO  AVATLEN 

This  program  reports  on  the  support  for  length  clauses. 

Main  procedure  AVATLEN. ADA 

Auxiliary  procedures  AVATIOO.ADA  ..  AVAT134.ADA 

AVAT135.TST 

AVAT136.ADA 

AVAT137.TST 

AVAT138.ADA  ..  AVAT154.ADA 
PART  THREE  AVATREP 

This  program  reports  on  the  support  for  enumeration  and  record 
representation  clauses  and  address  clauses.  Some  of  the 

auxiliary  procedures  in  this  program  depend  on  the  support 

package  SPPRT13. 

Main  procedure  AVATREP. ADA 

Auxiliary  procedures  AVAT200.ADA  ..  AVAT227.ADA 

PART  FOUR  AVATGEN 

This  program  reports  on  the  support  for  separate  compilation  of 
generic  specifications,  bodies,  and  subunits,  and  for  file  I/O. 

Main  procedure  AVATGEN. ADA 

Auxiliary  procedures  AVAT300.ADA  ..  AVAT335.ADA 

PART  FIVE  AVATSTD 

This  program  reports  the  values  of  constants  and  type 
characteristics  in  the  packages  STANDARD  and  SYSTEM. 

Main  procedure  AVATSTD. ADA 

Auxiliary  procedures  AVAT400.ADA  ..  AVAT411.ADA 


3. 3. 1.2  Compilation. 

The  five  programs  that  make  up  AVAT  may  be  processed  in  any  order; 
however,  the  order  of  compilation  within  each  program  is  crucial.  The 
specification  of  package  DATACOLLECTION  must  be  compiled  as  the  first  unit 
in  each  program;  the  body,  of  course,  may  be  compiled  at  any  subsequent 
time  before  the  link  step.  The  auxiliary  procedures  must  be  compiled  after 
the  package  and  before  the  main  procedure,  since  they  import  the  package 
and  the  main  procedure  imports  the  auxiliary  procedures.  It  is  especially 
important  to  note  that  the  auxiliary  procedures  must  be  compiled  in  the 
order  given  by  their  file  names,  since  the  success  of  the  programs  depends 
on  the  required  library  management.  Note  that  this  compilation  order 
requirement  prohibits  the  use  of  any  sort  of  concurrent  or  interleaved 
compilation,  including  the  use  of  batch  queues  with  more  than  one  job 
running  at  the  same  time. 
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3. 3. 1.3  Interpretation  Of  Results. 

When  the  five  AVAT  programs  execute,  they  report  the  values  of 
implementation-dependent  constants,  report  that  certain  features  are  (are 
not)  supported,  and  produce  lists  of  tests  which  are  potentially 
inapplicable  due  to  the  apparent  lack  of  support  of  certain  features.  The 
reports  should  be  read  and  carefully  considered  in  light  of  the  system 
documentation  and  known  implementation  decisions.  The  lists  of  potentially 
inapplicable  tests  serve  as  a  guide  in  determining  applicability,  but  final 
decisions  are  made  on  the  basis  of  test  behavior,  test-specific 
applicability  criteria,  and  consistency  with  documentation. 


3.3.2  Library  Support  Units. 

The  following  library  support  units  must  be  compiled  and  loaded  into 
the  program  library  that  is  used  when  compiling  and  linking  the  ACVC  tests. 


3. 3. 2.1  Reporting  Test  Results. 

3. 3. 2. 1.1  Package  Report. 

All  executable  tests  use  the  REPORT  support  package.  This  package 
contains  routines  to  1)  automate  reporting  of  test  results  and  2)  help 
prevent  optimizing  out  any  test  code.  Automation  of  reporting  test  results 
is  accomplished  with  a  set  of  procedures  which  identify  the  test  and 
indicate  its  result.  Optimization  is  defeated  with  a  set  of  identity 
functions. 

Package  REPORT  uses  most  of  the  Ada  features  used  throughout  the  test 
suite,  namely; 

type  INTEGER,  literals,  +,  relations,  ;« 
type  CHARACTER,  literals,  &,  relations,  ;• 
type  STRING,  literals,  &,  relations, 
type  BOOLEAN,  literals,  AND,  OR,  NOT,  relations, 

user-defined  enumeration  type,  literals,  relations, 

object  declarations  (and  initialization)  for  the  above  types. 

subprogram  declarations,  bodies,  and  calls,  with  formal 
parameters  of  all  modes  and  of  the  above  types. 

IF  statements. 


Executable  tests  generally  follow  the  format: 

VITH  REPORT;  USE  REPORT; 

PROCEDURE  Test name  IS 

BEGIN 
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TEST  ("Testname",  "Description 

IF  ...  /=.  CorrectValue  THEN 
FAILED  ("Reason"); 

END  IF; 

RESULT; 

END  Testname; 

The  specification  of  package  REPORT  is  given  in  the  file  REPSPEC.ADA. 
The  body  of  package  REPORT  is  given  in  the  file  REPBODY.ADA.  The 
specification  and  body  of  package  REPORT  are  also  given  in  Appendix  C. 

The  acceptance  tests  CZIIOIA.ADA  and  CZ1102A.ADA  must  be  compiled  and 
executed  before  a  validation  attempt  to  ensure  correct  operation  of  REPORT. 
A  listing  of  the  output  for  CZIIOIA.ADA  is  given  in  Appendix  E. 


3.3.2. 1.2  Allowable  Modifications  To  Package  Report. 

Since  the  body  of  package  REPORT  is  independent  of  the  tests 
themselves,  it  can  be  modified  to  use  only  those  implementation  features 
that  are  actually  working.  Modifications  made  for  a  validation  attempt 
must  be  presented  to  the  AVP. 


3. 3. 2. 2  File  I/O. 

3. 3. 2. 2.1  Procedure  CheckFile. 

Some  of  the  executable  file-I/0  tests  (CE...  tests)  use  a  checking 
procedure  called  CHECKFILE.  CHECKFILE  is  used  to  determine  the 
implementation's  text  file  characteristics. 

The  source  code  for  this  procedure  is  found  in  the  file  CHECKFILE. ADA. 
The  body  of  procedure  CHECKFILE  is  also  given  in  Appendix  D. 

The  acceptance  test  CZ1103A.ADA  must  be  compiled  and  executed  before  a 
validation  attempt  to  ensure  correct  operation  of  CHECKFILE.  CZ1103A 
checks  that  errors  in  text  files  are  properly  detected;  therefore,  CZ1103A 
will  print  some  failure  messages  when  it  is  executed.  The  presence  of 
these  messages  does  not  mean  the  test  has  failed.  A  listing  of  the  output 
for  CZ1103A.AOA  is  given  in  Appendix  E. 


3. 3. 2. 3  Address  Clauses. 

3. 3. 2. 3.1  Package  Spprtl3. 

Package  SPPRT13  contains  functions  which  return  values  of  type 
SYSTEM. ADDRESS  for  use  in  ADDRESS  clauses.  Only  the  specification  of  this 
package  is  distributed  with  the  ACVC;  the  body  must  be  supplied  by  the 
implementer.  Spprtl3  is  required  for  running  test  B91001H.AOA,  many 
chapter  13  tests  (CD...  tests),  and  AVAT. 
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3. 3. 2. 3. 2  Allowable  Modifications  To  Package  Spprtl3. 

If  the  type  SYSTEM. ADDRESS  is  defined  to  be  static,  then  the  functions 
in  package  SPPRT13  can  be  replaced  with  constants.  Modifications  made  for 
a  validation  attempt  must  be  presented  to  the  AVF. 


APPENDIX  A 


Macros  and  Their  Descriptions 


Following  is  the  information  contained  in  the  MACRO. DFS  file.  Each 
macro  definition  includes: 


1.  The  macro  itself. 

2.  A  description  of  what  the  replacement  value  represents. 

3.  A  list  of  tests  which  depend  on  the  macro. 

4.  An  example  replacement  value. 


—  $MAX_IN  LEN 

—  AN  INTEGER  LITERAL  GIVING  THE  MAXIMUM  LENGTH  PERMITTED  BY  THE 

—  COMPILER  FOR  A  LINE  OF  ADA  SOURCE  CODE  (NOT  INCLUDING  AN  END-OF-LINE 

—  CHARACTER). 

—  USED  IN:  A26007A 

MAX  IN  LEN  60 


—  $BIG  IDl 

—  AN  IDENTIFIER  IN  VHICH  THE  NUMBER  OF  CHARACTERS  IS  $MAX  IN  LEN. 

—  USED  IN:  C23003A  C23003B  C23003C  B23003D  B23003E  C23(503G 

C23003H  C23003I  C23003J  C35502D  C35502F 


BIG  IDl 


AAAAAAAAA  AAAAAAAAA  AAAAAAAAA  AAAAAAAAA  AAAAAAAAA  AAAAAAAAAl 


--  $BIG  ID2 

—  AN  IDENTIFIER  IN  WHICH  THE  NUMBER  OF  CHARACTERS  IS  $MAX_IN_LEN, 
--  DIFFERING  FROM  $BIG_ID1  ONLY  IN  THE  LAST  CHARACTER. 

—  USED  IN:  C23003A  C23003B  C23003C  B23003F  C23003G  C23003H 

C23003I  C23003J 


BIG  ID2 


AAAAAAAAA  AAAAAAAAA  AAAAAAAAA  AAAAAAAAA  AAAAAAAAA  AAAAAAAAA2 


A-1 


Macros  and  Their  Descriptions 


—  $BIG  ID3 

—  AN  IDENTIFIER  IN  WHICH  THE  NUMBER  OF  CHARACTERS  IS  $MAX_IN  LEN. 

—  USED  IN:  C23003A  C23003B  C23003C  C23003G  C23003H  C23503I 

C23003J 


BIG  ID3 


AAAAAAAAA  AAAAAAAAA  AAAAAAAAA3AAAAAAAAA  AAAAAAAAA  AAAAAAAAAA 


—  $BIG  ID4 

—  AN  IDENTIFIER  IN  WHICH  THE  NUMBER  OF  CHARACTERS  IS  $MAX_IN_LEN, 

—  DIFFERING  FROM  $BIG_ID3  ONLY  IN  THE  MIDDLE  CHARACTER. 

—  USED  IN:  C23003A  C23003B  C23003C  C23003G  C23003H  C23003I 

C23003J 


BIG  ID4 


AAAAAAAAA  AAAAAAAAA  AAAAAAAAA4AAAAAAAAA  AAAAAAAAA  AAAAAAAAAA 


—  $BIG  STRINGl 

—  A  STRING  LITERAL  (WITH  QUOTES)  WHOSE  CATENATION  WITH  $BIG  STRING2 

—  ($BIG_STRING1  &  $BIG  STRING2)  PRODUCES  THE  IMAGE  OF  $BIG_TD1. 

—  USED  IN:  C35502D  C35502F 

BIGSTRINGl  "AAAAAAAAA_AAAAAAAAA_AAAAAAAAA_" 

—  $BIG_STRING2 

—  A  STRING  LITERAL  (WITH  QUOTES)  WHOSE  CATENATION  WITH  $BIG  STRINGl 

—  (SBIGSTRINGl  &  SBIG  STRING2)  PRODUCES  THE  IMAGE  OF  $BIG  TDI. 

—  USED  IN:  C35502D  C35502F 

BIG_STRING2  '’AAAAAAAAA_AAAAAAAAA_AAAAAAAAA1" 

—  $MAX  STRING  LITERAL 

—  A  STRING  LITERAL  CONSISTING  OF  $MAX_IN_LEN  CHARACTERS  (INCLUDING  THE 

—  QUOTE  CHARACTERS). 

—  USED  IN:  A26007A 
MAX  STRING  LITERAL 

^CCCCCCC10CCCCCCCC20CCCCCCCC30CCCCCCCC40CCCCCCCC50CCCCCCCC59" 


—  $NEG  BASED_INT 

—  A  BASEDINTEGER  LITERAL  (PREFERABLY  BASE  8  OR  16)  WHOSE  HIGHEST  ORDER 

—  NON-ZERO  BIT  WOULD  FALL  IN  THE  SIGN  BIT  POSITION  OP  THE 

—  REPRESENTATION  FOR  SYSTEM. MAX  INT,  I.E.,  AN  ATTEMPT  TO  WRITE  A 

—  NEGATIVE  VALUED  LITERAL  SUCH  AS  -2  BY  TAKING  ADVANTAGE  OP  THE 

—  BIT  REPRESENTATION. 

—  USED  IN:  E24201A 

NEGBASEDINT  16#PFPPFPFE# 

SBIG  INT  LIT 

—  AFI  integer  LITERAL  WHOSE  VALUE  IS  298,  BUT  WHICH  HAS 

—  ($MAX_IN_LEN  -  3)  LEADING  ZEROES. 

--  USED  IN:  C24003A 

BIG  INT_LIT 

000000000000000000000000000000000000000000000000000000000298 
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SBIGREAL  LIT 

—  A  UNIVERSAL  REAL  LITERAL  VHOSE  VALUE  IS  690.0,  BUT  WHICH  HAS 

—  ($MAX  IN_LEFI  -  5)  LEADING  ZEROES. 

--  USED  IN:  C24003B  C24003C 

BIG_REAL_LIT 

0000000000000000000000000000000000000000000000000000000690 . 0 

—  $MAX  LEN_INT_BASED  LITERAL 

—  A  BASED  INTEGER  LITERAL  (USING  COLONS)  WHOSE  VALUE  IS  2:11:,  HAVING 

—  (SMAX  IN_LEN  -  5)  ZEROES  BETWEEN  THE  FIRST  COLON  AND  THE  FIRST  1. 

—  USED  IN:  C2A009A 

MAX  LEN  INT  BASED  LITERAL 

~2 : OOOOOCOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOll : 

—  SMAX  LEN  REAL  BASED_LITBRAL 

—  A  BASED  REAL  LITERAL  (USING  COLONS)  WHOSE  VALUE  IS  16:F.E:,  HAVING 

—  (SMAXINLEN  -  7)  ZEROES  BETWEEN  THE  FIRST  COLON  AND  THE  F. 

—  USED  IN:  C2A009A 

MAX  LEN  REAL  BASED  LITERAL 

16 : OOOOOOCOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOF . E : 

—  SBLANKS 

—  A  SEQUENCE  OP  ($HAX  IN  LEN  -  20)  BLWIKS. 

--  USED  IN;  B22001A  B22501B  B22001C  B22001D  B22001E  B22001F 

B22001G  B22001I  B22001J  B2200UC  B22001L  B22001M 

B22001N 

<  LIMITS  OP  SAMPLE  SHOWN  BY  ANGLE  BRACKETS  > 

BLANKS 

—  SMAX  DIGITS 

—  AN  IFJTEGER  literal  WHOSE  VALUE  IS  SYSTEM. MAX  DIGITS. 

—  USED  IN:  B35701A  CD7102B 

MAX_DIGITS  6 

—  SNAME 

—  THE  NAME  OP  A  PREDEFINED  INTEGER  TYPE  OTHER  THAN  INTEGER, 

—  SHORT  INTEGER,  OR  LONG  INTEGER. 

—  (IMPLEMENTATIONS  WHICH~HAVE  NO  SUCH  TYPES  SHOULD  USE  AN  UNDEFINED 

—  IDENTIFIER  SUCH  AS  NO  SUCH  TYPE  AVAILABLE.) 

—  USED  IN:  AVAT007  C45231D  B8600TX 
NAME  TINY_INTEGER 

—  SPLOAT_NAMB 

—  THE  NAME  OP  A  PREDEFINED  FLOATING  POINT  TYPE  OTHER  THAN  FLOAT, 

—  SHORTFLOAT,  OR  LONG  FLOAT.  (IMPLEMENTATIONS  WHICH  HAVE  NO  SUCH 

—  TYPES  SHOULD  USE  AN  ONDEPINED  IDENTIFIER  SUCH  AS  NO  SUCHTYPB.) 

—  USED  IN:  AVAT013  B86001Y 

FLOAT  NAME  SHORT  SHORT  FLOAT 
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--  $FIXED  NAME 

—  THE  NAME  OP  A  PREDEFINED  FIXED  POINT  TYPE  OTHER  THAN  DURATION. 

--  (IMPLEMENTATIONS  WHICH  HAVE  NO  SUCH  TYPES  SHOULD  USE  AN  UNDEFINED 

—  IDENTIFIER  SUCH  AS  NO  SUCH_TYPE. ) 

—  USED  IN:  AVAT030  BSSOOlZ 

FIXEDNAME  NOSUCHFIXEDTYPE 

—  $INTEGER_FIRST 

—  AN  INTEGER  LITERAL,  WITH  SIGN,  WHOSE  VALUE  IS  INTEGER' FIRST. 

—  USED  IN:  C35503F  B54B01B 

INTEGER_FIRST  -32_768 

—  $INTEGER_UST 

—  AN  INTEGER  LITERAL  WHOSE  VALUE  IS  INTEGER' LAST. 

—  USED  IN:  C35503F  B45232A  B45B01B 

INTEGER_LAST  32_767 

—  $INTEGER_LAST_PLUS_1 

—  AN  INTEGER  LITERAL  WHOSE  VALUE  IS  INTEGER' LAST  +  1. 

—  USED  IN:  C45232A 
INTEGER_LAST_PLUS_1  32_768 

—  $MIN_INT 

—AN  INTEGER  LITERAL,  WITH  SIGN,  WHOSE  VALUE  IS  SYSTEM . MIN_INT . 

—  THE  LITERAL  MUST  NOT  CONTAIN  UNDERSCORES  OR  LEADING  OR  TRAILING 

—  BLANKS. 

—  USED  IN:  C35503D  C35503P  CD7101B 

MIN_INT  -2147483648 

—  $MAX  INT 

—  AN  INTEGER  LITERAL  WHOSE  VALUE  IS  SYSTEM . MAXINT . 

—  THE  LITERAL  MUST  NOT  INCLUDE  UNDERSCORES  OR  LEADING  OR  TRAILING 

—  BLANKS. 

—  USED  IN:  C35503D  C35503F  C4A007A  CD7101B 

MAXINT  2147483647 

—  $MAX_INT  PLUS_1 

—  AN  integer  literal  WHOSE  VALUE  IS  SYSTEM . MAX_INT  +  1. 

—  USED  IN:  C45232A 

MAX_INT_PLUS_1  2_147_483_648 

—  $LESS  THAN  DURATION 

—  A  real  LITERAL  (WITH  SIGN)  WHOSE  VALUE  (NOT  SUBJECT  TO 

—  ROUND-OFF  ERROR  IF  POSSIBLE)  LIES  BETWEEN  DURATION' BASE' FIRST  AND 

—  DURATION' FIRST.  IP  NO  SUCH  VALUES  EXIST,  USE  A  VALUE  IN 

—  DURATION' RANGE. 

—  USED  IN:  C96005B 

LESS  THAN  DURATION  -75  000.0 
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—  SGREATER  THAN  DURATION 

—  A  REAL  LITERAL  VHOSE  VALUE  (NOT  SUBJECT  TO  ROUND-OFF  ERROR 

—  IP  POSSIBLE)  LIES  BETWEEN  DURATION' BASE' LAST  AND  DURATION' LAST.  IP 
--NO  SUCH  VALUES  EXIST,  USE  A  VALUE  IN  DURATION ' RANGE . 

—  USED  IN:  C96005B 

GREATER_THAN_DURATION  75_000 . 0 

—  $LESS_THAN_DURATION_BASE  PIRST 

--  A  REAL  LITERAL  (WITH  SIGR)  WHOSE  VALUE  IS  LESS  THAN 

—  DURATION 'BASE 'PIRST. 

--  USED  IN:  C96005C 

LESS_THAN_DURATION_BASE_PIRST  -131_073 . 0 

—  $GREATER_THAN_DURATION_BASE_LAST 

--  A  REAL  LITERAL  WHOSE  VALUE  IS  GREATER  THAN  DURATION' BASE' LAST. 

—  USED  IN:  C96005C 

GREATER_THAN_DURATION_BASE_LAST  131_073 . 0 

—  SCO'JNT  LAST 

—  AN  INTEGER  LITERAL  WHOSE  VALUE  IS  TEXT_IO . COUNT ' LAST . 

—  USED  IN:  CE3002B 

COUNTUST  32_767 

—  SPIELD  UST 

—  AN  INTiGER  LITERAL  WHOSE  VALUE  IS  TEXT  10. PIELD' LAST. 

—  USED  IN:  CE3002C 

FIELD_LAST  32_767 

—  $ ILLEGAL  EXTERNAL  PILE  NAMEl 

—  AN  ILLEGAL  EXTERNAL  PILE  NAME  (E.G.,  TOO  LONG,  CONTAINING  INVALID 

—  CHARACTERS,  CONTAINING  WILD-CARD  CHARACTERS,  OR  SPECIFYING  A 

—  NONEXISTENT  DIRECTORY). 

—  USED  IN:  CE2103A  CE2102C  CE2102H  CE2103B  CE3102B  CE3107A 

ILLEGAL_EXTERNAL_FILE_NAME1  \NODIRECTORY\FILENAME 

—  $ILLEGAL_EXTERNAL_FILE_NAME2 

—  AN  ILLEGAL  EXTERNAL  FILE  NAME,  DIFFERENT  PROM  $EXTERNAL  FILE_NAME1. 

—  USED  IN:  CE2102C  CE2102e  CE2103A  CE2103B 

ILLEGAL_EXTERNAL_FILE_NAME2  THIS-PILE-NAME-IS-TOO-LONG-FOR-MY-SYSTEM 

—  $ACC_SIZE 

—  AN  INTEGER  LITERAL  WHOSE  VALUE  IS  THE  MINIMUM  NUMBER  OF  BITS 

—  SUFFICIENT  TO  HOLD  ANY  VALUE  OP  AN  ACCESS  TYPE. 

—  USED  IN:  CD1C03C  CD2A81A  CD2A81B  CD2A81C  CD2A81D  CD2A81B 

CD2A81F  CD2A81G  CD2A83A  CD2A83B  CD2A83C  CD2A83E 

CD2A83F  C02A83G  ED2A86A  CD2A87A 

ACC  SIZE  32 
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—  $TASK  SIZE 

—AN  INTEGER  LITERAL  VHOSE  VALUE  IS  THE  NUMBER  OF  BITS  REQUIRED  TO 

—  HOLD  A  TASK  OBJECT  WHICH  HAS  A  SINGLE  ENTRY  WITH  ONE  INOUT  PARAMETER. 

—  USED  IN:  CD2A91A  CD2A91B  CD2A91C  CD2A91D  CD2A91E 

TASK_SIZE  128 

—  $MIN_TASK_SIZE 

—  AN  INTEGER  LITERAL  WHOSE  VALUE  IS  THE  NUMBER  OF  BITS  REQUIRED  TO 

—  HOLD  A  TASK  OBJECT  WHICH  HAS  NO  ENTRIES,  NO  DECLARATIONS,  AND  "NULL;" 
—AS  THE  ONLY  STATEMENT  IN  ITS  BODY. 

—  USED  IN;  CD2A95A 

MIN_TASK_SIZE  64 

—  $NAME_LIST 

—  A  LIST  OF  THE  ENUMERATION  LITERALS  IN  THE  TYPE  SYSTEM. NAME,  SEPARATED 

—  BY  COMMAS. 

—  USED  IN;  CD7003A 

NAMELIST  OURVMSADA,  OUR_ULTRIX_ADA,  OURELNADA 

—  $DEFAULT_SYS_NAME 

—  THE  VALUE  OF  THE  CONSTANT  SYSTEM . SYSTEMNAME . 

—  USED  IN:  CD7004A  CD7004C  CD7004D 

DEFAULTSYSNAME  OUR_VMS_ADA 

—  $NEW  SYS  NAME 

—A  VALUE  OF  THE  TYPE  SYSTEM. NAME,  OTHER  THAN  $DEPAULT  SYS_NAME.  IF 

—  THERE  IS  ONLY  ONE  VALUE  OP  THE  TYPE,  THEN  USB  THAT  VALUE. 

—  NOTE:  IF  THERE  ARE  MORE  THAN  TWO  VALUES  OP  THE  TYPE,  THEN  THE 

PERTINENT  TESTS  ARE  TO  BE  RUN  ONCE  FOR  EACH  ALTERNATIVE. 

—  USED  IN:  ED7004B1 

NEW_SYS_NAME  OUR_ULTRIX_ADA 

—  $DEFAULT_STOR_UNIT 

—  AN  INTEGER  LITERAL  WHOSE  VALUE  IS  SYSTEM . STORAGE_UNIT . 

—  USED  IN:  CD7005B  ED7005D3M  CD7005E 

DEFAULT_STOR_UNIT  16 

—  $NEW_STOR_UNIT 

—AN  INTEGER  LITERAL  VHOSE  VALUE  IS  A  PERMITTED  ARGUMENT  FOR 

—  PRAGMA  STORAGE_UNIT,  OTHER  THAN  $DEFAULT  STOR  UNIT.  IF  THERE 

—  IS  NO  OTHER  PERMITTED  VALUE,  THEN  USB  THI  VALDE  OP 

—  SSYSTEM. STORAGE  UNIT.  IP  THERE  IS  MORE  THAN  ONE  ALTERNATIVE, 

—  THEN  THE  PERTININT  TESTS  SHOULD  BE  RUN  ONCE  FOR  EACH  ALTERNATIVE. 

—  USED  IN;  BD7005C1  ED7005D1  CD7005E 

NEW_STOR_UNIT  8 

—  $DEPAULT_MBM  SIZE 

—  AN  INTEGER  LITERAL  WHOSE  VALUE  IS  SYSTEM. MEMORY_SIZE. 

—  USED  IN:  CD7006B  ED7006D3N  CD7006B 

DEFAULT  MEM  SIZE  655  360 
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—  $NEV  MEM  SIZE 

--  AN  INTEGER  LITERAL  WHOSE  VALUE  IS  A  PERMITTED  ARGUMENT  FOR 

—  PRAGMA  MEMORY  SIZE,  OTHER  THAN  $DEFAULT_MEM  SIZE.  IF  THERE  IS  NO 

—  OTHER  VALUE,  THEN  USE  $DEFAULT_MEH  SIZE.  IF  THERE  IS  MORE  THAN 

—  ONE  ALTERNATIVE,  THEN  THE  PERTINENT  TESTS  SHOULD  BE  RUN  ONCE  FOR 

—  EACH  ALTERNATIVE.  IF  THE  NUMBER  OF  PERMITTED  VALUES  IS  LARGE,  THEN 

—  SEVERAL  VALUES  SHOULD  BE  USED,  COVERING  A  WIDE  RANGE  OF 
--  POSSIBILITIES. 

—  USED  IN:  ED7006C1  ED7006D1  CD7006E 

NEW_MEM_SIZE  1_048_576 

—  SLOW  PRIORITY 

—  AN  INTEGER  LITERAL  WHOSE  VALUE  IS  THE  LOWER  BOUND  OF  THE  RANGE 

—  FOR  THE  SUBTYPE  SYSTEM. PRIORITY. 

—  USED  IN:  CD7007C 

LOWPRIORITY  0 

—  SHIGH  PRIORITY 

—  AN  INTEGER  LITERAL  WHOSE  VALUE  IS  THE  UPPER  BOUND  OP  THE  RANGE 

—  FOR  THE  SUBTYPE  SYSTEM. PRIORITY. 

—  USED  IN:  CD7007C 

HIGHPRIORITY  3 

—  SMANTISSA  DOC 

—  AN  INTEGER  LITERAL  WHOSE  VALUE  IS  SYSTEM. MAX_MANTISSA  AS  SPECIFIED 

—  IN  THE  IMPLEMENTOR'S  DOCUMENTATION. 

—  USED  IN:  CD7013B 

MANTISSA_DOC  31 

—  $DELTA_DOC 

—  A  REAL  LITERAL  WHOSE  VALUE  IS  SYSTEM. FINE  DELTA  AS  SPECIFIED  IN  THE 

—  IMPLEMENTOR'S  DOCUMENTATION. 

—  USED  IN:  CD7013D 

DELTA_DOC  0.000_000_000_465_661_287_307_739_558_602_5 

—  STICK 

—  A  REAL  LITERAL  WHOSE  VALUE  IS  SYSTEM. TICK  AS  SPECIFIED  IN  THE 

—  IMPLEMENTOR'S  DOCUMENTATION. 

—  USED  IN:  CD7104B 
TICK  0.001 
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Test  Applicability  Criteria 


Certain  tests  in  the  suite  may  be  considered  inapplicable  to  an 
implementation  depending  on  the  way  the  implementation  treats  the 
implementation-dependent  features  of  the  language.  A  brief  summary  of 
these  implementation-dependent  features  and  the  tests  they  affect  are 
listed  in  this  appendix. 

Note  that  the  applicability  of  each  one  of  these  tests  is  based  on  the 
criteria  listed  in  the  test  file.  All  potentially  inapplicable  tests  must 
still  be  compiled  -  except  those  tests  which  require  a  floating-point 
DIGITS  value  that  exceeds  SYSTEM. MAXDIGITS  -  and  executed  if  successfully 
compiled,  to  verify  the  implementation's  treatment  of  these  features.  All 
results  for  a  particular  feature  must  be  consistent. 

The  first  part  of  this  appendix  is  concerned  with  tests  for  which  the 
applicability  is  determined  at  compile  time.  Class  B  tests  that  are 
inapplicable  should  be  successfully  compiled.  Executable  test  that  are 
inapplicable  must  be  rejected  at  compile  time  as  a  result  of  the 
unsupported  feature.  Lines  containing  the  implementation-dependent 
features  are  marked  " —  NA  ■>  ERROR.". 


If  the  type  SHORT_INTEGER  is  not  predefined,  then  the  following  tests 
are  inapplicable:~ 


B52004E.DBP 

C45231B.DEP 

C45503B.DEP 

C45611B.DEP 


B55B09D.DEP 

C45304B.DBP 

C45504B.DEP 

C45613B.DEP 


B86001V.DBP 

C45502B.DEP 

C45504E.DBP 

C45614B.DBP 


mmm 


Compile  Time  Inapplicability 


If  the  type  LONG_INTEGER  is  not  predefined,  then  the  following  tests 
are  inapplicable: 

B52004D.DEP  B55B09C.DEP  B86001W.DEP 
C45231C.DEP  C45304C.DEP  C45502C.DEP 
C45503C.DEP  C45504C.DEP  C45504F.DEP 
C45611C.DEP  C45613C.DEP  C45614C.DEP 
C45631C.DEP  C45632C.DEP  C55B07A.DEP 
CD7101F.DEP 


If  the  type  SHORTFLOAT  is  not  predefined,  then  the  following  tests 
are  inapplicable: 

B86001T.DEP  C35702A.DEP 


If  the  type  LONGFLOAT  is  not  predefined,  then  the  following  tests  are 
inapplicable: 

B86001U.DEP  C35702B.DEP 


If  there  are  no  predefined  integer  types  other  than  INTEGER, 
SHORT  INTEGER,  and  LONGINTEGER,  then  the  following  tests  are 
inapplicable: 

B86001X.TST  C45231D.TST  CD7101G.TST 


If  there  are  no  predefined  floating-point  types  other  than  FLOAT, 
SHORT_FLOAT,  and  L0NG_FL0AT,  then  the  following  test  is  inapplicable: 

B86001Z.TST 


If  there  are  no  predefined  fixed-point  types,  then  the  following  test 
is  inapplicable: 

B86001Y.TST 


If  'SIZE  representation  clauses  for  boolean  types  are  not  supported, 
then  the  following  tests  are  inapplicable: 

CD2A64A.DEP  CD2A64C.DEP  CD2A65A.DEP 

CD2A65C.DEP  CD2A74A.DBP  CD2A76A.DEP 
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If  'SIZE  represen 
supported,  then  the 

A39005B.DEP 
CD2A21A.DEP 
CD2A21D.DEP 
CD2A22B.DEP 
CD2A22E.DEP 
CD2A22H.DEP 
CD2A23A.DEP 
CD2A23D.DEP 
CD2A24B.DEP 
CD2A24E.DEP 
CD2A2AH.DEP 
CD2A66B.DEP 


ation  clauses 
following  tests 

CD1009B.DEP 
CD2A21B.DEP 
CD2A21E.DEP 
CD2A22C.DEP 
CD2A22F.DEP 
CD2A22I.DEP 
CD2A23B.DEP 
CD2A23E.DEP 
CD2A24C.DEP 
CD2A24F.DEP 
CD2A24I.DEP 
CD2A66D.DEP 


for  enumeration 
are  inapplicable: 

CD1009P.DEP 

CD2A21C.DEP 

CD2A22A,DEP 

CD2A22D.DEP 

CD2A22G.DEP 

CD2A22J.DEP 

CD2A23C.DEP 

CD2A24A.DEP 

CD2A24D.DEP 

CD2A24G.DBP 

CD2A24J.DEP 

ED2A26A.DEP 


types  are  not 


If  'SIZE  representation  clauses  for  integer  types  are  not  supported, 
then  the  following  tests  are  inapplicable: 


C87B62A.DEP 

CD1C03A.DEP 

CD2A31B.DEP 

CD2A32A.DEP 

CD2A32D.DEP 

CD2A32G.DEP 

CD2A32J.DEP 

CD2A65B.DEP 

C02A76B.DEP 


CD1009A.DEP 

CD1C04A.DEP 

CD2A31C.DEP 

CD2A32B.DEP 

CD2A32E.DEP 

CD2A32H.DEP 

CD2A64B.DEP 

CD2A65D.DEP 


CD10090.DEP 

CD2A31A.DEP 

CD2A31D.DEP 

CD2A32C.DEP 

CD2A32P.DEP 

CD2A32I.DEP 

CD2A64D.DEP 

CD2A74B.DBP 


If  'SIZE  representation  clauses  for  floating-point  types  are  not 
supported,  then  the  following  tests  are  inapplicable: 


CD1009C.DEP 

CD2A41C.DEP 

CD2A42A.DEP 

CD2A42D.DEP 

CD2A42G.DEP 

CD2A42J.DEP 


CD2A41A.DEP 

CD2A41D.DEP 

CD2A42B.DEP 

CD2A42E.DEP 

CD2A42H.DEP 


CD2A41B.DEP 

CD2A41B.DEP 

CD2A42C.DEP 

CD2A42F.DEP 

CD2A42I.DEP 
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If  'SIZE  representation  clauses  for  fixed-point  types  are  not 
supported,  then  the  following  tests  are  inapplicable: 

CD1009D.DEP  CD1009Q.DEP  CD1C04C.DEP 
CD2A51B.DEP  CD2A51C.DEP  CD2A51D.DEP 
CD2A51E.DEP  CD2A52A.DEP  CD2A52B.DEP 
CD2A52C.DEP  CD2A52D.DEP  CD2A52G.DEP 
CD2A52H.DEP  CD2A52I.DEP  CD2A52J.DEP 
CD2A53A.DEP  CD2A53B.DBP  CD2A53C.DEP 
CD2A53D.DEP  CD2A53B.DEP  CD2A54A.DEP 
CD2A54B.DEP  CD2A54C.DEP  CD2A54D.DEP 
CD2A54G.DEP  CD2A54H.DEP  CD2A54I.DEP 
CD2 A54 J . DEP  ED2 A56A . DEP 


If  'SIZE  representation  clauses  for  array  types  are  not  supported, 
then  the  following  tests  are  inapplicable: 

CD1009E.DEP  CD1009P.DEP  CD2A61A.DEP 
CD2A61B.DEP  CD2A61C.DEP  CD2A61D.DEP 
CD2A61E.DEP  CD2A61F.DEP  CD2A61G.DEP 
CD2A61H.DEP  CD2A61I.DEP  CD2A61J.DEP 
CD2A61K.DEP  CD2A61L.DEP  CD2A62A.DEP 
CD2A62B.DEP  CD2A62C.DEP  CD2A62D.DEP 
C02A63A.DEP  CD2A63B.DBP  CD2A63C.DEP 
CD2A63D.DEP  CD2A64A.DEP  CD2A64B,DEP 
CD2A64C.DEP  CD2A64D.DEP  CD2A65A.DEP 
CD2A65B.DEP  CD2A65C.DBP  CD2A65D.DEP 
CD2A66A.DEP  CD2A66B.DEP  CD2A66C.DEP 
CD2A66D.DEP 


If  'SIZE  representation  clauses  for  record  types  are  not  supported, 
then  the  following  tests  are  inapplicable: 

CD1009G.DEP  CD2A71A.DEP  CD2A71B.DEP 
CD2A71C.DEP  CD2A71D.DEP  CD2A72A.DBP 
CD2A72B.DEP  CD2A72C.DBP  CD2A72D.DEP 
CD2A73A.DEP  CD2A73B.DEP  CD2A73C.DEP 
CD2A73D.DEP  CD2A74A.DEP  CD2A74B.DEP 
CD2A74C.DEP  CD2A74D.DEP  CD2A75A.DEP 
CD2A75B.DEP  CD2A75C.DBP  CD2A75D.DEP 
CD2A76A.DEP  CD2A76B.DEP  CD2A76C.DEP 
CD2A76D.DEP 


If  'SIZE  representation  clauses  for  private  types  ace  not  supported, 
then  the  following  test  is  inapplicable: 


CD1009H.DEP 


Compile  Time  Inapplicability 


If  'SIZE  representation  clauses  for  limited  private  types  are  not 
supported,  then  the  following  test  is  inapplicable: 

CD1009I.DEP 


If  'SIZE  representation  clauses  for  access  types  are  not  supported, 
then  the  following  tests  are  inapplicable: 


CD2A81A.TST 

CD2A81D.TST 

CD2A81G.TST 

CD2A83C.TST 

CD2A83G.TST 

CD2A84C.DEP 

CD2A84F.DEP 

CD2A84I.DEP 

CD2A84M.DEP 

ED2A86A.TST 


CD2A81B.TST 

CD2A81E.TST 

CD2A83A.TST 

CD2A83E.TST 

CD2A84A.DEP 

CD2A84D.DEP 

CD2A84G.DEP 

CD2A84K.DEP 

CD2A84N.DEP 


CD2A81C.TST 

CD2A81F.TST 

CD2A83B.TST 

CD2A83F.TST 

CD2A84B.DEP 

CD2A84E.DEP 

CD2A84H.DEP 

CD2A84L.DEP 

CD2A87A.TST 


If  'SIZE  representation  clauses  for  task,  types  are  not  supported,  then 
the  following  tests  are  inapplicable: 


CD2A91A.TST 

CD2A91D.TST 


CD2A91B.TST 

CD2A91E.TST 


CD2A91C.TST 


If  ' STORAGE_SIZE  representation  clauses  for  access  types  are  not 
supported.  Then  the  following  tests  are  inapplicable: 


A39005C.DEP 

CD1009R.DEP 

CD2A83A.TST 

CD2A83E.TST 

CD2A84A.DEP 

CD2A84D.DEP 

CD2A84G.DEP 

CD2A84K.DEP 

CD2A84N.DEP 

CD2B11C.DEP 

CD2B11P.DEP 

CD2B15C.DEP 

ED2A86A.TST 


C87B62B.DEP 

CD1009S.DEP 

CD2A83B.TST 

CD2A83F.TST 

CD2A84B.DEP 

CD2A84E.DEP 

CD2A84H.DEP 

CD2A84L.DEP 

CD2B11A.DEP 

CD2B11D.DEP 

CD2B11G.DEP 

CD2B16A.DEP 


CD1009J.DEP 

CD1C03C.TST 

CD2A83C.TST 

CD2A83G.TST 

CD2A84C.DEP 

CD2A84F.DEP 

CD2A84I.DEP 

C02A84H.DEP 

CD2B11B.DEP 

CD2B11E.DEP 

CD2B15B.DEP 

CD7205C.DEP 


If  'STORAGE  SIZE  representation  clauses  for  task  types  are  not 
supported,  tHen  the  following  tests  are  inapplicable: 


A39005D.DEP 

CD1009T.DEP 

CD1C04B.DEP 


C87B62D.DEP 

CD1009U,DEP 

CD1C06A.DEP 


CD1009K.DEP 

CD1C03E.DEP 

CD7205D.DEP 


Compile  Time  Inapplicability 


If  the  'SMALL  clause  is  not  supported,  then  the  following  tests  are 
inapplicable: 


A39005E.DEP 

CD1C03F.DEP 

CD2A53C.DEP 

CD2A54A.DEP 

CD2A54D.DEP 

CD2A54I.DEP 

CD2D11B.DEP 


C87B62C.DEP 

CD2A53A.DEP 

CD2A53D.OEP 

CD2A54B.DEP 

CD2A54G.DEP 

CD2A54J.DEP 

CD2D13A.DEP 


CD1009L.DEP 

CD2A53B.DEP 

CD2A53E.DEP 

CD2A54C.DBP 

CD2A54H.DEP 

CD2D11A.DEP 

ED2A56A.DEP 


If  enumeration  representation  clauses  are  not  supported,  then  the 
following  tests  are  inapplicable: 


AD1009M.DEP 

AD1C04D.DEP 

C35507J.DEP 

C35508J.DEP 

CD2A23B.DEP 

CD2A23B.DEP 

CD2A24C.DEP 

CD2A24F.DEP 

CD2A24I.DEP 

E02A26A.0EP 


AD1009V.DEP 

C35502N.DEP 

C35507M.DEP 

CD1C03G.DEP 

CD2A23C.DEP 

CD2A24A.DEP 

CD2A24D.DEP 

CD2A24G.DEP 

CD2A24J,DEP 


AD1009W.DEP 

C35507I.DEP 

C35507N.DEP 

CD2A23A.DEP 

CD2A23D.DEP 

CD2A24B.DEP 

CD2A24E.DEP 

CD2A24H.DEP 

CD3021A.DEP 


If  enumeration  representation  clauses  for  non-contiguous  values  are 
not  supported,  then  the  following  tests  are  inapplicable: 


A39005F.DEP 

C35502M.DEP 

C35507M.DEP 

C35508J.DEP 

C55B16A.DEP 


C35502I.DEP 

C35502N.DEP 

C35507N.DEP 

C35508M.DEP 


C35502J.DEP 

C35507J.DEP 

C35508I.DEP 

C35508N.DEP 


If  enumeration  representation  clauses  for  types  other  than  character 
and  boolean  are  not  supported,  then  the  following  tests  are 
inapplicable: 


A39005P.DEP  C35502I.DBP  C35502J.DEP 

C35502M.DEP  C35502N.DEP 


If  enumeration  representation  clauses  for  character  types  are  not 
supported,  then  the  following  tests  are  inapplicable: 

C35507I.DEP  C35507J.DEP  C35507M.DEP 

C35507N.DEP  C55B16A.DEP 


B-6 


Compile  Time  Inapplicability 


If  enumeration  representation  clauses  for  boolean  types,  with 
representation  values  other  than  (FALSE  =>  0,  TRUE  ->1),  are  not 
supported,  then  the  following  tests  are  inapplicable; 

C35508I.DEP  C35508J.DEP  C35508M.DEP 
C35508N.DEP 


If  record  representation  clauses  are  not  supported,  then  the  following 
tests  are  inapplicable: 


A39005G.DEP 

CD1009Y.DEP 

CD1C04E.DEP 

CD4051B.DEP 

ED1D04A.DEP 


CD1009N.DEP 

CD1009Z.DEP 

CD4031A.DEP 

CD4051C.DEP 


CD1009X.DEP 

CD1C03H.DEP 

CD4051A.DEP 

CD7204C.DEP 


If  'ADDRESS  clauses  for  variables  are  not  supported,  or  if  the  type 
SYSTEM. ADDRESS  is  limited,  then  the  following  tests  are  inapplicable: 


CD5003B.DEP 

CD5003E.DEP 

CD5003H.DEP 

CD5011C.DEP 

CD5011I.DEP 

CD50110.DEP 

CD5012B.DEP 

CD5012I.DEP 

CD5013A.DEP 

CD5013G.DEP 

CD5013M.DEP 

CD5014A.DEP 

CD5014G.DEP 

CD5014M.DEP 

CD5014T.DEP 

CD5014Y.DEP 


CD5003C.DEP 

CD5003F.DEP 

CD5003I.DEP 

CD5011B.DEP 

CD5011K.DEP 

CD5011Q.DEP 

CD5012E.DEP 

CD5012J.DEP 

CD5013C.DEP 

CD5013I.DBP 

CD50130.DBP 

CD5014C.DBP 

CD5014I.DEP 

CD50140.DEP 

CD5014V.DEP 

CD5014Z.DEP 


CD5003D.DEP 

CD5003G.DEP 

CD5011A.DEP 

CD5011G.DEP 

CD5011M.DEP 

CD5012A.DEP 

CD5012P.DBP 

CD5012M.DBP 

CD5013E.DBP 

CD5013K.DEP 

CD5013S.DEP 

CD5014E.DEP 

CD5014K.DEP 

CD5014S.DEP 

CD5014X.DEP 


Compile  Time  Inapplicability 


If  'ADDRESS  clauses  for  constants  are  not  supported,  or  if  the  type 
SYSTEM. ADDRESS  is  limited,  then  the  following  tests  are  inapplicable: 

CD5011B.DEP  CD5011D.DEP  CD5011F.DEP 
CD5011H.DEP  CD5011L.DEP  CD5011N.DEP 
CD5011R.DEP  CD5011S.DEP  CD5012C.DEP 
CD5012D.DEP  CD5012G.DEP  CD5012H.DEP 
CD5012L.DEP  CD5013B.DEP  CD5013D.DEP 
CD5013F.DEP  CD5013H.DEP  CD5013J.DEP 
CD5013L.DEP  CD5013N.DEP  CD5013R.DEP 
CD5014B.DEP  CD5014D.DEP  CD5014F.DEP 
CD5014H.DEP  CD5014J.DEP  CD5014L.DEP 
CD5014N.DEP  CD5014R.DEP  CD5014U.DEP 
CD5014y.DEP 


If  'ADDRESS  clauses  for  subprograms  are  not  supported  ,  or  if  the  type 
SYSTEM. ADDRESS  is  limited,  then  the  following  tests  are  inapplicable: 

CD5007B.DEP 


If  the  pragmas  SYSTEMNAME,  STORAGEUNIT,  and  MEMORYSIZE  must  come  at 
the  beginning  of  a  program  library,  then  the  following  files  are 
ommitted  from  the  associated  test: 

ED7004B0.TST  ED7004B2.TST 
ED7005C0.TST  ED7005C2.TST 
ED7005D0.TST  ED7005D2.TST 
ED7006C0.TST  ED7006C2.TST 
ED7006DO.TST  ED7006D2.TST 


If  any  limitations,  other  than  those  specified  in  the  RM,  are  imposed 
on  the  use  of  the  pragmas  SYSTEMNAME,  STORAGEUNIT,  and  MEMORYSIZE, 
then  the  following  test  may  be  inapplicable: 

CD7004C.TST  CD7005E.TST  CD7006E.TST 


Consider  the  following  declarations: 

TYPE  F  IS  DIGITS  SYSTEM. MAXDIGITS; 

N  ;  CONSTANT  2.0  *  F'MACHINERADIX  **  F ' MACHINEEMAX ; 

If  the  declaration  of  N  is  rejected  on  the  grounds  that  evaluation  of 
the  expression  will  raise  an  exception,  then  the  following  test  is 
inapplicable: 


C4A013B.ADA 


Compile  Time  Inapplicability 


I 


If  the  fixed-point  type  definitions 


DELTA  0.5  RANGE  -2. 0**10  ..  2. 0**10  -  0.5 
DELTA  1.0  RANGE  -2. 0**11  ..  2. 0**11  -  1.0 
DELTA  2. 0**10  RANGE  -2. 0**21  ..  2. 0**21  -  2. 0**10 


are  not  supported,  then  the  following  tests  are  inapplicable: 


C45531C.DEP 

C45532D.DEP 


C45531D.DEP 


C45532C.DEP 


If  the  fixed-point  type  definitions 


DELTA  0.5  RANGE  -2. 0**14  ..  2. 0**14  -  0.5 
DELTA  1.0  RANGE  -2. 0**15  ..  2. 0**15  -  1.0 
DELTA  2. 0**14  RANGE  -2. 0**29  ..  2. 0**29  -  2. 0**14 


are  not  supported,  then  the  following  tests  are  inapplicable: 


C45531G.DEP 

C45532H.DEP 


C45531H.DEP 


C45532G.DEP 


If  the  fixed-point  type  definitions 


DELTA  0.5  RANGE  -2. 0**30  ..  2. 0**30  -  0.5 
DELTA  1.0  RANGE  -2. 0**31  ..  2. 0**31  -  1.0 
DELTA  2. 0**30  RANGE  -2. 0**61  ..  2. 0**61  -  2. 0**30 


are  not  supported,  then  the  following  tests  are  inapplicable: 


C45531K.DEP 

C45532L.DEP 


C45531L.DEP 


C45532K.DEP 


If  the  fixed-point  type  definitions 


DELTA  0.5  RANGE  -2. 0**46  ..  2. 0**46  -  0.5 
DELTA  1.0  RANGE  -2. 0**47  ..  2. 0**47  -  1.0 
DELTA  2. 0**46  RANGE  -2. 0**93  ..  2. 0**93  -  2. 0**46 


are  not  supported,  then  the  following  tests  are  inapplicable: 


C455310.DEP 

C45532P.DEP 


C45531P.DEP 


C455320.DEP 


Compile  Time  Inapplicability 


\  . 

I 


If  the  fixed-point  type  definitions 

DELTA  2.0**-12  RANGE  -0.5  ..  0-5  -  2.0**-12 

DELTA  2.0**-ll  RANGE  -1.0  ..  1.0  -  2.0**-ll 

DELTA  2.0**-10  RANGE  -2.0  ..  2.0  -  2.0**-10 

are  not  supported,  then  the  following  tests  are  inapplicable: 

C45531A.DEP  C45531B.DEP  C45532A.DEP 

C45532B.DEP 

If  the  fixed-point  type  definitions 

DELTA  2.0**-16  RANGE  -0.5  ..  0.5  -  2.0**-16 

DELTA  2.0**-l5  RANGE  -1.0  ..  1.0  -  2.0**-15 

DELTA  2.0**-14  RANGE  -2.0  ..  2.0  -  2.0**-14 

are  not  supported,  then  the  following  tests  are  inapplicable: 

C45531E.DEP  C45531P.DEP  C45532E.DEP 

C45532P.DEP 

If  the  fixed-point  type  definitions 

DELTA  2.0**-32  RANGE  -0.5  ..  0.5  -  2.0**-32 

DELTA  2.0**-31  RANGE  -1.0  ..  1.0  -  2.0**-31 

DELTA  2.0**-30  RANGE  -2.0  ..  2.0  -  2.0**-30 

are  not  supported,  then  the  following  tests  are  inapplicable: 

C45531I.DEP  C45531J.DEP  C45532I.DEP 

C45532J.DEP 


If  the  fixed-point  type  definitions 

DELTA  2.0**-48  RANGE  -0.5  ..  0.5  -  2.0**-48 

DELTA  2.0**-47  RANGE  -1.0  ..  1.0  -  2.0**-47 

DELTA  2.0**-46  RANGE  -2.0  ..  2.0  -  2.0**-46 

are  not  supported,  then  the  following  tests  are  inapplicable: 

C45531H.DEP  C45531N.OEP  C45532M.DEP 

C45532N.0EP 
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Compile  Time  Inapplicabil  ity 


The  folloving  tests  depend  on  the  value  of  SYSTEM. MAX_DIGITS; 


C24113*.DEP 

C35707*.DEP 

C45241*.DEP 

C45521*.DEP 

C45641*.DEP 


C35705*.DEP 

C35708*.DEP 

C45321*.DEP 

C45524*.DEP 

C46012*.DEP 


C35706*.DEP 

C35802*.DEP 

C45421*.DEP 

C45621*.DEP 


Use  the  table  belov  to  determine  which  of  these  tests  are  applicable 
based  on  the  value  of  SYSTEM. MAX  DIGITS. 


Last  Letter  of 
Value  of  Test  Name  of 

MAX_DIGITS  Applicable  Tests 


5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 


A 

A,B 
A.  .C 
A.  .D 
A..E 
A..F 
A.  .G 
A.  .H 
A.. I 
A.  .J 
A.  .K 
A.  .L 
A..M 
A.  .N 
A.  .0 
A..P 
A..Q 
A.  .R 
A.  .S 
A..T 
A..U 
A..V 
A..W 
A..X 
A..Y 
A..Z 


If  the  value  of  SYSTEM . MAXDIGITS  >  35,  then  the  following  test  is 
inapplicable: 


C4A011A.A0A 
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Compile  Time  Inapplicability 


If  a  generic  library-subprogram  body  cannot  be  compiled  in  a  separate 
file  than  its  specification,  then  the  following  test  is  inapplicable: 

CA1012A*.DEP 


If  a  generic  library-package  body  cannot  be  compiled  in  a  separate 
file  than  its  specification,  then  the  following  tests  are 
inapplicable: 

BC3204C*.DEP  BC3204D*.DEP 


If  a  generic,  non-library  package  body  cannot  be  compiled  as  a  subunit 
in  a  separate  file  than  its  specification,  then  the  following  test  is 
inapplicable: 

CA2009C*.DEP 


If  a  generic,  non-library  subprogram  body  cannot  be  compiled  as  a 
subunit  in  a  separate  file  than  its  specification,  then  the  following 
test  is  inapplicable: 

CA2009F*.DEP 


If  a  generic  procedure  cannot  have  subunits  which  are  compiled  in 
separate  files  than  the  generic  unit,  then  the  following  test  is 
inapplicable: 

CA3011A*.DEP 


If  package  SYSTEM  is  used  by  package  TEXT_IO,  then  the  following  test 
is  inapplicable:  ~ 

C86001P.DEP 


If  SEQUENTIAL_IO  cannot  be  instantiated  with  an  unconstrained  array 
type,  then  the  following  tests  are  inapplicable: 

AE2101C.DEP  EE2201D.ADA 


If  SEQUENTIAL_IO  cannot  be  instantiated  with  a  record  type  with 
discriminants  with  no  default  values,  then  the  following  tests  are 
inapplicable: 


AE2101C.DEP 


EE2201E.AOA 


Compile  Time  Inapplicability 


If  DIRECT  10  cannot  be  instantiated  with  an  unconstrained  array  type, 
then  the  lollowing  tests  are  inapplicable: 

AE2101H.DEP  EE2401D.ADA 


If  DIRECT_I0  cannot  be  instantiated  with  a  record  type  with 
discriminants  with  no  default  values,  then  the  following  tests  are 
inapplicable: 

AE2101H.DEP  EE2401G.ADA 


If  there  are  no  strings  which  are  illegal  as  external  file  names,  then 
the  following  tests  are  inapplicable: 

CE2102C.TST  CE2102H.TST 


I 


Tests  Which  Report  "NOT-APPLICABLE" 


This  section  is  concerned  with  tests  that  can  detect,  at  runtime, 
certain  implementation  characteristics  that  make  the  tests  inapplicable. 
The  result  reported  for  these  tests  is  ' NOTAPPLICABLE' .  These  tests  must 
compile  and  execute. 


If  USE_ERR0R  or  NAME  ERROR  is  raised  by  every  attempt  to  create  or 
open  a  text  file  with  mode  IN_FILE  (this  is  the  appropriate  behavior 
for  an  implementation  which  does  not  support  text  files  other  than 
standard  input  and  output;  See  AI-00332),  then  the  following  test 
should  report  NOT_APPLICABLE: 

CE3109A.ADA 


If  CREATE  with  mode  IN_FILE  is  supported  for  text  files,  then  the 

following  test  should  report  NOTAPPLICABLE: 

CE3102E.ADA 

If  OPEN  with  mode  IN  PILE  is  supported  for  text  files,  then  the 

following  test  shoul?  report  NOT  APPLICABLE; 

CE3102J.ADA 


If  USE_ERROR  or  NAME_ERROR  is  raised  by  every  attempt  to  create  or 
open  a  text  file  wlTh  mode  0UT_FILE  (this  is  the  appropriate  behavior 
for  an  implementation  which  does  not  support  text  files  other  than 
standard  input  and  output;  see  AI-00332),  then  the  following  tests 
should  report  NOT  APPLICABLE: 


CE2109C.ADA 

CE3107B.ADA 

CE3403A.ADA 

CE3408B.AOA 

CE3605A.ADA 

CE3905B.ADA 

EE3410F.ADA 


CE3102A.ADA 

CE3112C.ADA 

CE3406B.ADA 

CE3409A.ADA 

CE3605E.ADA 

EB3405B.ADA 


CE3102B.TST 

CE3402D.ADA 

CE3407B.ADA 

CE3410A.ADA 

CE3706P.ADA 

EE3409P.ADA 


If  CREATE  with  mode  OUT  FILE  is  supported  for  text  files,  then  the 
following  test  should  report  NOT_APPLI CABLE; 


CE3102I.ADA 


Tests  Vhich  Report  "NOT-APPLICABLE 


If  OPEN  with  mode  0UT_FILE  is  supported  for  text  files,  then  the 
following  test  should  report  NOTAPPLICABLE; 

CE3102K.ADA 

If  RESET  is  supported  for  text  files,  then  the  following  test  should 
report  NOT_APPLICABLE; 

CE3102F.ADA 


If  DELETE  for  text  files  is  supported,  then  the  following  test  should 
report  NOTAPPLICABLE: 

CE3102G.ADA 


If  USEERROR  or  NAME  ERROR  is  raised  by  every  attempt  to  create  or 
open  a  text  file  (this  is  the  appropriate  behavior  for  an 
implementation  which  does  not  support  text  files  other  than  standard 
input  and  output;  see  AI-00332),  then  the  following  tests  should 
report  NOT_APPLICABLE: 


CE2108A.ADA 

CE2108D.ADA 

CE3104A.ADA 

CE3108B.ADA 

CE3112B.ADA 

CE3203A.ADA 

CE3301B.ADA 

CE3305A.ADA 

CE3402C.ADA 

CE3403E.ADA 

CE3404B.ADA 

CE3405A.ADA 

CE3405D.ADA 

CE3406D.ADA 

CE3408A.AOA 

CE3409D.ADA 

CE3410C.ADA 

CE3410F.ADA 

CE3411C.ADA 

CE3413C.ADA 

CE3602C.ADA 

CE3604A.ADA 

CE3605C.ADA 

CE3606B.ADA 

CE3704D.ADA 

CE3704M.ADA 

CE3706D.ADA 

CE3804B.ADA 


CE2108B.ADA 

CE3102H.ADA 

CE3104B.ADA 

CE3110A.ADA 

CE3112D.ADA 

CE3208A.ADA 

CE3301C.ADA 

CE3402A.ADA 

CE3403B.ADA 

CE3403F.ADA 

CE3404C.ADA 

CE340SB.A0A 

CE3406A.ADA 

CE3407A.AOA 

CE3408C.ADA 

CE3409E.ADA 

CE3410D.ADA 

CE3411A.AOA 

CE3412A.ADA 

CE3602A.ADA 

CE3602D.ADA 

CE3604B.A0A 

CE3605D.ADA 

CE3704A.ADA 

CE3704E.ADA 

CE3704N.AOA 

CE3706G.ADA 

CE3804C.ADA 


CE2108C.ADA 

CE3103A.ADA 

CE3108A.ADA 

CE3112A.ADA 

CE3114A.ADA 

CE3301A.ADA 

CE3302A.ADA 

CE3402B.ADA 

CE3403C.ADA 

CE3404A.ADA 

CE3404D.ADA 

CE3405C.ADA 

CE3406C.ADA 

CE3407C.ADA 

CE3409C.ADA 

CE3409F.ADA 

CE3410E.ADA 

CE3411B.ADA 

CE3413A.ADA 

CE3602B.ADA 

CE3603A.A0A 

CE3605B.A0A 

CE3606A.ADA 

CE3704B.ADA 

CE3704F.ADA 

CE37040.ADA 

CE3804A.ADA 

CE3804D.AOA 


Tests  Which  Report  "NOT-APPLICABLE" 


CE3804E.ADA 

CE3804H.ADA 

CE3804K.ADA 

CE3804N.ADA 

CE3805A.ADA 

CE3806B.ADA 

CE3806G.ADA 

CE3905C.ADA 

CE3906B.ADA 

CE3906F.ADA 

EE3412C.ADA 


CE3804P.ADA 
CE3804I.ADA 
CE 3804 L. ADA 
CE38040.ADA 
CE3805B.ADA 
CE3806D.ADA 
CE3806H.ADA 
CE3905L.ADA 
CE3906C.ADA 
EE3203A.ADA 


CE3804G.ADA 

CE3804J.ADA 

CE3804H.ADA 

CE3804P.ADA 

CE3806A.ADA 

CE3806E.ADA 

CE3905A.ADA 

CE3906A.ADA 

CE3906E.ADA 

EE3402B.A0A 


If  RESET  is  not  supported  for  text  files,  then  the  following  tests 
should  report  NOT_APPLICABLE: 

CE3104C.ADA  CE3115A.ADA 


If  DELETE  for  text  files  is  not  supported,  then  the  following  tests 
should  report  NOT  APPLICABLE: 

CE3110A.ADA  CE3114A.ADA 


If  association  of  multiple  internal  text  files  to  a  single  external 
file  is  not  supported,  then  the  following  tests  should  report 
NOT_APPLICABLE; 

CE2110B.ADA  CE3111A.ADA  CE3111B.ADA 
CE3111C.ADA  CE3111D.ADA  CE3111B.ADA 
CE3114B.ADA  CESllSA.ADA 


If  USEERROR  or  NAHE_ERR0R  is  raised  by  every  attempt  to  create  or 
open  a  sequential  file  with  mode  IN  FILE  (this  is  the  appropriate 
behavior  for  an  implementation  which  does  not  support  sequential 
files;  see  AI-00332)'  then  the  following  test  should  report 
NOT_APPLICABLE: 

CE2105A.AOA 


If  CREATE  and  OPEN  with  mode  IN_FILE  are  supported  for  sequential 
files,  then  the  following  tests  should  report  NOT_APPLICABLE: 

CE2102D.AOA  CE2102N.ADA 
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If  RESET  to  mode  IN_FILE  is  supported  for  sequential  files  ,  then  the 
following  tests  should  report  NOT_APPLI CABLE: 

CE2 1020. ADA  CE2111F.ADA  CE2111I.ADA 
CE2204C.ADA 


If  USE_ERR0R  or  NAME_ERROR  is  raised  by  every  attempt  to  create  or 
open  a  sequential  file  with  mode  OUT  FILE  (this  is  the  appropriate 
behavior  for  an  implementation  which  ?oes  not  support  sequential 
files;  see  AI-00332),  then  the  following  tests  should  report 
NOT_APPLICABLE: 

CE2102A.ADA  CE2102C.TST  CE2102X.ADA 
CE2106A.ADA  CE2108E.ADA  CE2109A.ADA 
CE2110A.ADA 


If  CREATE  and  OPEN  with  mode  0UT_FILE  are  supported,  then  the 
following  tests  should  report  NOT_APPLICABLE: 

CE2102E.ADA  CE2102P.ADA 


If  RESET  to  mode  OUT  FILE  is  supported  for  sequential  files,  then  the 
following  test  shoul3  report  NOT_APPLICABLE: 

CE2 1020. ADA 


If  RESET  to  mode  0UT_FILE  is  not  supported  for  sequential  files,  then 
the  following  tests  should  report  NOT_APPLICABLE; 

CE2111C.ADA  CE2111D.ADA  CE2111F.ADA 
CE2111I.ADA 


If  DELETE  for  sequential  files  is  not  supported,  then  the  following 
tests  should  report  NOT_APPLICABLE: 

CE2106A.ADA  CE2110A.ADA 


If  association  of  multiple  internal  sequential  files  to  a  single 
external  file  is  not  supported,  then  the  following  tests  should  report 
NOT_APPLICABLE; 

CE2107A.ADA  CE2107B.ADA  CE2107C.ADA 
CE2107D.ADA  CE2111D.ADA 
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If  USEERROR  or  NAME_ERROR  is  raised  by  every  attempt  to  create  or 
open  a  sequential  file  (this  is  the  appropriate  behavior  for  an 
implementation  which  does  not  support  sequential  files;  see  AI-00332), 
then  the  following  tests  should  report  NOT_APPLICABLE: 


CE2103C.ADA 

CE2104B.ADA 

CE2108F.ADA 

CE2201A.ADA 

CE2201P.ADA 

CE2201I.ADA 

CE2201L.ADA 

CE2204A.ADA 

CE2204D.ADA 

CE2210A.ADA 


CE2102G.ADA 

CE2108A.AOA 

CE2111A.ADA 

CE2201B.ADA 

CE2201G-ADA 

CE2201J.ADA 

CE2201M.ADA 

CE2204B.ADA 

CE2205A.ADA 


CE2104A.ADA 

CE2108B.AOA 

CE2115B.ADA 

CE2201C.ADA 

CE2201H.ADA 

CE2201K.ADA 

CE2201N.ADA 

CE2204C.ADA 

CE2208B.ADA 


If  USE  ERROR  or  NAME  ERROR  is  raised  by  every  attempt  to  create  or 
open  a  direct  access  file  with  mode  IN_FILE  (this  is  the  appropriate 
behavior  for  an  implementation  which  does  not  support  direct  access 
files;  see  AI-00332),  then  the  following  tests  should  report 
NOT_APPLICABLE! 

CE2105B.ADA  CE2401E.ADA  CE2401F.ADA 
CE2401H.ADA  CE2401I.ADA  CE2401J.ADA 
CE2405B.ADA  CE2407A.ADA 


If  CREATE  with  mode  IN_FILE  is  supported  for  direct  access  files,  then 
the  following  test  should  report  NOT_APPLICAflLE: 

CE2 1021. ADA 


If  OPEN  with  mode  IN  FILE  is  supported  for  direct  access  files,  then 
the  following  test  sHould  report  NOT_APPLICABLE: 

CE2102T.ADA 

If  RESET  with  mode  IN  FILE  is  supported  for  direct  access  files,  then 
the  following  tests  sKould  report  N0T_APPLI CABLE: 

CE2102U.ADA  CE2407B.ADA 


If  RESET  with  mode  IN_FILE  is  not  supported  for  direct  access  files, 
then  the  following  tests  should  report  N0T_APPLI CABLE: 

CE2111B.AOA  CE2111G.AOA  CE2111H.A0A 
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If  USE  ERROR  or  NAME_ERROR  is  raised  by  every  attempt  to  create  or 
open  a  direct  access  file  with  mode  0UT_FILE  (this  is  the  appropriate 
behavior  for  an  implementation  which  does  not  support  direct  access 
files;  see  AI-00332),  then  the  following  tests  should  report 
NOT_APPLI CABLE: 

CE2102B.ADA  CE2102Y.ADA  CE2106B.ADA 
CE2110C.ADA  CE2401K.ADA  CE2404A.ADA 
CE2404B.ADA  CE2407A.ADA  CE2407B.ADA 
CE2408A.ADA  CE2409B.ADA  CE2410A.ADA 
CE2410B.ADA 


If  CREATE  and  OPEN  with  mode  0UT_FILE  is  supported  for  direct  access 
files,  then  the  following  tests  should  report  NOT_APPLICABLE: 

CE2102J.ADA  CE2102V.ADA 


If  RESET  with  mode  OUT_FILE  is  supported  for  direct  access  files,  then 
the  following  test  should  report  N0T_APPLI CABLE: 

CE2102V.ADA 


If  USE_ERR0R  or  NAME_ERROR  is  raised  by  every  attempt  to  create  or 
open  a  direct  access  file  with  mode  INOUT  FILE  (this  is  the 
appropriate  behavior  for  an  implementation  whicH  does  not  support 
direct  access  files;  see  AI-00332),  then  the  following  tests  should 
report  N0T_APP LI CABLE: 

CE2102H.TST  CE2109B.ADA  CE2401E.ADA 
CE2401F.ADA  CE2401H.ADA  CE2401I.ADA 
CE2401J.ADA  CE2401K.ADA  CE2401L.ADA 
CE2405B.ADA  CE2408B.ADA  CE2409A.ADA 


If  CREATE  and  OPEN  with  mode  INOUT_FILE  are  supported  for  direct 
access  files,  then  the  following  tests  should  report  NOT_APPLI CABLE: 

CE2102F.ADA  CE2102R.ADA 


If  RESET  to  mode  INOUT_FILE  is  supported  for  direct  access  files,  then 
the  following  test  should  report  NOT_APPLI CABLE: 


CE2102S.ADA 


Tests  Which  Report  "NOT-APPLICABLE 


If  DELETE  for  direct  access  files  is  not  supported,  then  the  following 
tests  should  report  NOT_APPLICABLE: 

CE2106B.ADA  CE2110C.ADA 


If  association  of  multiple  internal  direct  access  files  to  a  single 
external  file  is  not  supported,  then  the  following  tests  should  report 
NOT_APPLICABLE: 

CE2107P.ADA  CE2107G.ADA  CE2107H.ADA 
CE2 1071. ADA  CE2110D.ADA  CE2111H.ADA 


If  USE  ERROR  or  NAME_ERROR  is  raised  by  every  attempt  to  create  or 
open  a  direct  access  file  (this  is  the  appropriate  behavior  for  an 
implementation  which  does  not  support  direct  access  files;  see 
AI-00332),  then  the  following  tests  should  report  NOT_APPLICABLE: 


CE2102K.ADA 

CE2104D.ADA 

CE2108G.ADA 

CE2115A.ADA 

CE2401C.ADA 


CE2103D.ADA 

CE2108C.ADA 

CE2108H.ADA 

CE2401A.ADA 

CE2406A.ADA 


CE2104C.ADA 

CE2108D.ADA 

CE2111E.ADA 

CE2401B.ADA 

CE2411A.ADA 


If  association  of  an  internal  sequential  file  and  an  internal  direct 
access  file  to  a  single  external  file  is  not  supported,  then  the 
following  tests  should  report  NOT_APPLICABLE: 

CE2107E.ADA  CE2107L.ADA 


If  the  INLINE  pragma  is  not  supported  for  PROCEDURES,  then  the 
following  tests  should  report  NOT_APPLICABLE: 

CA3004E*.ADA  EA3004C*.ADA  LA3004A*.ADA 


If  the  INLINE  pragma  is  not  supported  for  FUNCTTIONS,  then  the 
following  tests  should  report  NOT_APPLICABLE; 

CA3004P*.ADA  EA3004D*.ADA  LA3004B*.ADA 


If  excessive  recursion  causes  STORAGE_ERROR  to  be  raised,  then  the 
following  test  should  report  N0T_APPLI CABLE: 

D64005F*.ADA 


m 


A 


y. 
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If  DURATION' FIRST  =  DURATION' BASE' FIRST  or  DURATION' LAST 
DURATION' BASE' LAST,  then  the  following  test  should  report 
NOT_APPLICABLE,  if  it  otherwise  executes  proierly: 

C96005B.TST 


Consider  the  declaration 

TYPE  F  IS  DIGITS  SYSTEM. MAX_DIGITS; 

If  F'MACHINE_OVERFLOWS  is  false  and  2.0  *  F' MACHINERADIX  ** 

F' MACHINE_EMAX  <=  F'BASE'LARGE,  then  the  following  test  should  report 
NOTAPPLICABLE  if  it  compiles  without  error: 

C4A013B.ADA 
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Package  REPORT  Specification  and  Body 


--  REPSPEC.ADA 
--  PURPOSE; 

THIS  REPORT  PACKAGE  PROVIDES  THE  MECHANISM  FOR  REPORTING  THE 
PASS/FAIL/NOT-APPLICABLE  RESULTS  OF  EXECUTABLE  (CLASSES  A,  C, 
D,  E,  AND  L)  TESTS. 

IT  ALSO  PROVIDES  THE  MECHANISM  FOR  GUARANTEEING  THAT  CERTAIN 
VALUES  BECOME  DYNAMIC  (NOT  KNOWN  AT  COMPILE-TIME). 

--  HISTORY: 

JRK  12/13/79 
JRK  06/10/80 
JRK  08/06/81 
JRK  10/27/82 
JRK  06/01/84 

PUB  07/30/87  ADDED  PROCEDURE  SPECIAL  ACTION. 

TBN  08/20/87  ADDED  FUNCTION  LEGAL_FILE_NAME. 

PACKAGE  REPORT  IS 

SUBTYPE  FILE  NUM  IS  INTEGER  RANGE  1..3; 


—  THE  REPORT  ROUTINES. 


PROCEDURE  TEST 


(  NAME  :  STRING; 
DESCR  :  STRING 


THIS  ROUTINE  MUST  BE  INVOKED  AT  THE 
START  OP  A  TEST,  BEFORE  ANY  OF  THE 
OTHER  REPORT  ROUTINES  ARB  INVOKED. 

IT  SAVES  THE  TEST  NAME  AND  OUTPUTS  THE 
NAME  AND  DESCRIPTION. 

TEST  NAME,  E.G.,  "C23001A-AB" . 

BRIEF  DESCRIPTION  OF  TEST,  E.G., 
"UPPER/ LOWER  CASE  EQUIVALENCE  IN  "  & 
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); 


PROCEDURE  FAILED 


(  DESCR  :  STRING 


); 


'’IDENTIFIERS". 


OUTPUT  A  FAILURE  MESSAGE.  SHOULD  BE 
INVOKED  SEPARATELY  TO  REPORT  THE 
FAILURE  OF  EACH  SUBTEST  WITHIN  A  TEST. 
BRIEF  DESCRIPTION  OF  WHAT  FAILED. 
SHOULD  BE  PHRASED  AS: 

" ( FAILED  BECAUSE )  . . . REASON . . . " . 


PROCEDURE  NOT_APPLI CABLE  —  OUTPUT  A  NOT-APPLICABLE  MESSAGE. 

—  SHOULD  BE  INVOKED  SEPARATELY  TO  REPORT 
—  THE  NON-APPLICABILITY  OP  EACH  SUBTEST 
—  WITHIN  A  TEST. 

(  DESCR  :  STRING  —  BRIEF  DESCRIPTION  OF  WHAT  IS 

—  NOT-APPLICABLE.  SHOULD  BE  PHRASED  AS: 

—  "(NOT-APPLICABLE  BECAUSE) .. .REASON. . 

); 


PROCEDURE  SPECIAL  ACTION 


(  DESCR  :  STRING 


); 


OUTPUT  A  MESSAGE  DESCRIBING  SPECIAL 
ACTIONS  TO  BE  TAKEN. 

SHOULD  BE  INVOKED  SEPARATELY  TO  GIVE 
EACH  SPECIAL  ACTION. 

BRIEF  DESCRIPTION  OP  ACTION  TO  BE 
TAKEN. 


PROCEDURE  COMMENT  —  OUTPUT  A  COMMENT  MESSAGE. 

(  DESCR  :  STRING  —  THE  MESSAGE. 

); 


PROCEDURE  RESULT;  —  THIS  ROUTINE  MUST  BE  INVOKED  AT  THE 

—  END  OF  A  TEST.  IT  OUTPUTS  A  MESSAGE 
—  INDICATING  WHETHER  THE  TEST  AS  A 
—  WHOLE  HAS  PASSED,  FAILED,  IS 
—  NOT-APPLICABLE,  OR  HAS  TENTATIVELY 
—  PASSED  PENDING  SPECIAL  ACTIONS. 


—  THE  DYNAMIC  VALUE  ROUTINES. 


—  EVEN  WITH  STATIC  ARGUMENTS,  THESE  FUNCTIONS  WILL  HAVE  DYNAMIC 

—  RESULTS. 


FUNCTION  IDENT  INT  —  AN  IDENTITY  FUNCTION  FOR  TYPE  INTEGER. 

(  X  ;  integer  —  THE  ARGUMENT. 

)  RETURN  INTEGER;  —  X. 


FUNCTION  IDENT_CHAR 

(  X  :  CHARACTER 
)  RETURN  CHARACTER; 


—  AN  IDENTITY  FUNCTION  FOR  TYPE 

—  CHARACTER. 

—  THE  ARGUMENT. 

—  X. 
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FUNCTION  IDENT  BOOL  —  AN  IDENTITY  FUNCTION  FOR  TYPE  BOOLEAN. 

(  X  :  BOOLEAN  --  THE  ARGUMENT. 

)  RETURN  BOOLEAN;  --  X. 

FUNCTION  IDENT  STR  --  AN  IDENTITY  FUNCTION  FOR  TYPE  STRING. 

(  X  :  STRING  --  THE  ARGUMENT. 

)  RETURN  STRING;  --  X. 

FUNCTION  EQUAL  --  A  RECURSIVE  EQUALITY  FUNCTION  FOR  TYPE 

—  INTEGER. 

(  X,  Y  ;  INTEGER  —  THE  ARGUMENTS. 

)  RETURN  BOOLEAN;  —  X  -  Y. 

—  OTHER  UTILITY  ROUTINES. 

FUNCTION  LEGAL_FILE_NAME  —  A  FUNCTION  TO  GENERATE  LEGAL  EXTERNAL 

—  FILE  NA.MES. 

(  X  :  FILE  NUM  1;  —  DETERMINES  FIRST  CHARACTER  OF  NAME. 

NAM  :  STRING  —  DETERMINES  REST  OP  NAME. 

)  RETURN  STRING;  --  THE  GENERATED  NAME. 

END  REPORT; 


REPORT  Package  Body 


—  REPBODY.ADA 

—  HISTORY: 

DCB  04/27/80 
JRK  6/10/80 
JRK  11/12/80 
JRK  8/6/81 
JRK  10/27/82 
JRK  6/1/84 

JRK  11/18/85  ADDED  PRAGMA  ELABORATE. 

PUB  07/29/87  ADDED  STATUS  ACTION_REQUIRED  AND 
PROCEDURE  SPECIAL_ACTION. 

TBN  08/20/87  ADDED  FUNCTION  LEGAL_PILE_NAME. 

WITH  TEXT  10; 

USE  TEXT_T0; 

PRAGMA  ELABORATE  (TEXTIO); 

PACKAGE  BODY  REPORT  IS 

TYPE  STATUS  IS  (PASS,  FAIL,  DOES_NOT_APPLY,  ACTION_REQUIRED) ; 
TEST_STATUS  :  STATUS  FAIL; 

MAX  NAME_LEN  ;  CONSTANT  15;  —  MAXIMUM  TEST  NAME  LENGTH. 

TESTNAME  :  STRING  (1. .MAXNAMELEN); 

NO  NAME  !  CONSTANT  STRING  (1..7)  "NO  NAME"; 

TEST_NAME_LEN  ;  INTEGER  RANGE  0 . . MAX_NAME_LEN  0; 

PROCEDURE  PUT  MSG  (MSG  :  STRING)  IS 

—  URITE~MESSAGE.  LONG  MESSAGES  ARB  FOLDED  (AND  INDENTED). 
MAX  LEN  :  CONSTANT  INTEGER  RANGE  50.. 150  72;  —  MAXIMUM 

—  OUTPUT  LINE  LENGTH. 

INDENT  :  CONSTANT  INTEGER  TEST  NAME  LEN  +  9;  —  AMOUNT  TO 

—  Indent  continuation  lines. 

I  :  integer  0;  —  CURRENT  INDENTATION. 

M  :  INTEGER  MSG' FIRST;  —  START  OP  MESSAGE  SLICE. 

N  ;  INTEGER;  —  END  OF  MESSAGE  SLICE. 

BEGIN 

LOOP 

IP  I  +  (MSG'LAST-M+l)  >  MAXLEN  THEN 
N  M  ♦  (MAXLEN-I)  -  1; 

IF  MSG  (N)  /-  '  '  THEN 

WHILE  N  >-  M  AND  THEN  MSG  (N+l)  /-  '  '  LOOP 
N  N  -  1; 

END  LOOP; 

IF  N  <  M  THEN 

N  M  +  (MAX  LEN-I)  -  1; 

END  IP; 

END  IP; 

ELSE  N  MSG'UST; 

END  IF; 
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SET_C0L  (STANDARD  OUTPUT,  COUNT  (I+l)); 

PUT_LINE  (STANDARD_OUTPUT,  MSG  (M..N)); 

I  INDENT; 

M  :=  N  +  1; 

WHILE  M  <-  MSG' LAST  AND  THEN  MSG  (M)  «  '  '  LOOP 
M  ;=.  M  +  1; 

END  LOOP; 

EXIT  WHEN  M  >  MSG 'LAST; 

END  LOOP; 

END  PUT_MSG; 

PROCEDURE  TEST  (NAME  :  STRING;  DESCR  :  STRING)  IS 
BEGIN 

TEST  STATUS  PASS; 

IF  NAME' LENGTH  <-  MAX_NAME_LEN  THEN 
TEST_NAME_LEN  NAME 'LENGTH; 

ELSE  TEST_NAME_LEN  MAX  NAMB_LEN; 

END  IF; 

TEST_NAME  (1. .TEST_NAME_LEN) 

NAME  (NAME' FIRST  ..  NAME ' FIRST+TEST  NAME  LEN-1); 
PUTMSG  (""); 

PUTMSG  (" -  "  &  TESTNAME  (1. .TEST_NAME_LEN)  &  "  "  & 

DESCR  & 

END  TEST; 

PROCEDURE  COMMENT  (DESCR  :  STRING)  IS 
BEGIN 

PUT  MSG  ("  -  "  &  TEST_NAME  ( 1 . . TEST_NAME  LEN)  &  "  "  & 

DESCR  4  "."); 

END  COMMENT; 

PROCEDURE  FAILED  (DESCR  :  STRING)  IS 
BEGIN 

TEST_STATUS  FAIL; 

PUTMSG  ("  *  "  4  TEST_NAME  (1. .TEST_NAME_LEN)  4  "  "  4 

DESCR  4  "."); 

END  FAILED; 

PROCEDURE  NOTAPPLICABLE  (DESCR  ;  STRING)  IS 
BEGIN 

IF  TEST  STATUS  -  PASS  OR  TEST  STATUS  .  ACTION_REQUIRED  THEN 
TEST_STATUS  DOES_NOT_APPLY; 

END  IP; 

PUT  MSG  ("  +  "  4  TEST_NAME  (1..TEST  NAME  LEN)  4  "  "  4 

DESCR  4  "."); 

END  NOT_APPLICABLE; 

PROCEDURE  SPECIAL  ACTION  (DESCR  :  STRING)  IS 
BEGIN 

IF  TEST_STATUS  -  PASS  THEN 

TESTSTATUS  ACTION  REQUIRED; 

END  IF; 
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PUT_MSG  ("  !  "  &  TEST_NAME  (1. .TEST_NAME  LEN)  &  "  "  & 

DESCR 

END  SPECIAL_ACTION; 

PROCEDURE  RESULT  IS 
BEGIN 

CASE  TEST_STATUS  IS 
VHEN  PASS  => 

PUT  MSG  -  "  &  TEST_NAMB  (1.  .TEST_NAME_LEN)  & 

"  PASSED 
WHEN  DOES_NOT  APPLY  -> 

PUT  MSG  T"++++  "  &  TBST_NAMB  (1..TEST  NAMBLEN)  & 

"  NOT-APPLICABLE  +++++++++++7++++++++."); 

VHEN  ACTION  REQUIRED  -> 

PUT  MSG  ("I!!!  "  &  TEST  NAME  (1..TEST  NAME  LEN)  & 

"  TENTATIVELY  PASSED  ! !!! I ! !T! 1 ! !T! 1 ! . ; 
PUTMSG  ("!!!1  "  &  ( 1 . . TEST_NAME_LEN  '  ')  & 

"  SEE  '!'  COMMENTS  FOR  SPECIAL  NOTES!!"); 

VHEN  OTHERS  => 

PUT_MSG  ("****  "  &  TEST_NAMB  (1..TEST  NAMB_LEN)  & 

"  FAILED  **************************** , " ) ; 

END  CASE; 

TEST  STATUS  FAIL; 

TEST'NAME  LEN  NO_NAMB' LENGTH; 

TEST"NAME~(1..TEST_NAME  LEN)  :«  NO  NAME; 

END  RESULT; 

FUNCTION  IDENT_INT  (X  J  INTEGER) 

BEGIN 

IF  EQUAL  (X,  X)  THEN 
RETURN  X; 

END  IF; 

RETURN  0; 

END  IDENT_INT; 

FUNCTION  IDENTCHAR  (X  :  CHARACTER)  RETURN  CHARACTER  IS 
BEGIN 

IF  EQUAL  (CHARACTER' POS(X),  CHARACTER' POS(X))  THEN  —  ALVAYS 

—  EQUAL. 

RETURN  X;  —  ALWAYS  EXECUTED. 

END  IF; 

RETURN  'O';  —  NEVER  EXECUTED. 

END  IDENT_CHAR; 

FUNCTION  IDENT_BOOL  (X  :  BOOLEAN)  RETURN  BOOLEAN  IS 
BEGIN 

IF  EQUAL  (BOOLEAN' POS(X),  BOOLEAN' POS(X))  THEN  —  ALWAYS 

—  EQUAL. 

RETURN  X;  —  ALWAYS  EXECUTED. 

END  IF; 

RETURN  FALSE;  —  NEVER  EXECUTED. 

END  IDENT  BOOL; 


RETURN  INTEGER  IS 

—  ALWAYS  EQUAL. 

—  ALWAYS  EXECUTED. 

—  NEVER  EXECUTED. 
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FUNCTION  IDENT  STR  (X  :  STRING)  RETURN  STRING  IS 
BEGIN 

IF  EQUAL  (X'LENGTH,  X' LENGTH)  THEN  —  ALWAYS  EQUAL. 

RETURN  X;  —  ALWAYS  EXECUTED. 

END  IF; 

RETURN  —  NEVER  EXECUTED. 

END  IDENT_STR; 

FUNCTION  EQUAL  (X,  Y  :  INTEGER)  RETURN  BOOLEAN  IS 

REC  LIMIT  :  CONSTANT  INTEGER  RANGE  1..100  3;  —  RECURSION 

—  LIMIT. 

Z  ;  BOOLEAN;  —  RESULT. 

BEGIN 

IF  X  <  0  THEN 

IF  Y  <  0  THEN 

Z  EQUAL  (-X,  -Y); 

ELSE  Z  FALSE; 

END  IF; 

ELSIP  X  >  REC  LIMIT  THEN 

Z  EQUAL  (REC_LIMIT,  Y-X+REC  LIMIT); 

ELSIP  X  >  0  THEN 

Z  EQUAL  (X-1,  Y-1); 

ELSE  Z  Y  -  0; 

END  IF; 

RETURN  Z; 

EXCEPTION 

WHEN  OTHERS  -> 

RETURN  X  »  Y; 

END  EQUAL; 

FUNCTION  LEGAL  FILE  NAME  (X  ;  FIL£_NUM  :«  1; 

NAM  :  STRING  ;«  ’"’) 

RETURN  STRING  IS 
SUFFIX  ;  STRING  (2.. 6); 

BEGIN 

IF  NAM  *  ""  THEN 

SUFFIX  TEST  NAME(3..7); 

ELSE 

SUFFIX  :«  NAH(3..7); 

END  IF; 

CASE  X  IS 

WHEN  1  ->  RETURN  ('X'  &  SUFFIX); 

WHEN  2  ->  RETURN  ('Y'  &  SUFFIX); 

WHEN  3  ->  RETURN  ('Z'  A  SUFFIX); 

END  CASE; 

END  LEGAL_FILE_NAME; 

BEGIN 

TEST  NAMELEN  :«  NO  NAME' LENGTH; 

TEST'NAME  (1. .TESTJ5aME_LEN)  NONAMB; 
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Procedure  CHECKFILE  Body 


—  CHECK_FILE.ADA 

--  THIS  IS  A  PROCEDURE  USED  BY  MANY  OF  THE  CHAPTER  14  TESTS  TO  CHECK  THE 

—  CONTENTS  OF  A  TEXT  FILE. 

—  THIS  PROCEDURE  ASSUMES  THE  FILE  PARAMETER  PASSED  TO  IT  IS  AN  OPEN 

—  TEXT  FILE. 

—  THE  STRING  PARAMETER  CONTAINS  THE  CHARACTERS  THAT  ARB  SUPPOSED  TO  BE 
--IN  THE  TEXT  PILE.  A  '#'  CHARACTER  IS  USED  IN  THE  STRING  TO  DENOTE 

—  THE  END  OF  A  LINE.  A  CHARACTER  IS  USED  TO  DENOTE  THE  END  OF  A 

—  PAGE.  A  CHARACTER  IS  USED  TO  DENOTE  THE  END  OP  THE  TEXT  PILE. 

--  THESE  SYMBOLS  SHOULD  NOT  BE  USED  AS  TEXT  OUTPUT. 

—  SPS  11/30/82 

—  JBG  2/3/83 

WITH  REPORT;  USE  REPORT; 

WITH  TEXTIO;  USE  TEXTIO; 

PROCEDURE  CHECKFILE  (FILE:  IN  OUT  FILETYPE;  CONTENTS  :  STRING)  IS 
X  :  CHARACTER; 

COL  COUNT  s  POSITIVE  COUNT  1; 

LINf  COUNT  ;  POSITIVE_COUNT  1; 

PAGE~COUNT  :  POSITIVE  COUNT  1; 

trailing  BLANKS  MSG  VSlTTEN  :  BOOLEAN  PALSE; 

STOPPROCESSING":  EXCEPTION; 

PROCEDURE  CHECKEND  OPLINE  ( EXPBCT_END_OP  PAGE  :  BOOLEAN)  IS 
BEGIN 

—  SKIP  OVER  ANT  TRAILING  BLANKS.  AN  IMPLEMENTATION  CAN  LEGALLY 


Procedure  CHECKFILE  Body 


—  APPEND  BLANKS  TO  THE  END  OP  ANY  LINE. 

WHILE  NOT  END  0P_LINE  (FILE)  LOOP 
GET  (FILE,  X); 

IF  X  /-  '  '  THEN 

FAILED  ("FROM  CHE(X_PILE!  END  OP  LINE  EXPECTED  - 
X  &  "  ENCOUNTERED"); 

RAISE  STOPPROCESSING; 

ELSE 

IF  NOT  TRAILING  BLANKS  MSG  WRITTEN  THEN 
COMMENT  ("FROM  CHICKFILE:  "  & 

"THIS  IMPLEMENTATION  PADS  "  & 

"LINES  WITH  BLANKS"); 

TRAILING  BLANKS_MSG_VRITTEN  TRUE; 

END  IF; 

END  IF; 

END  LOOP; 

IF  LINE  COUNT  /-  LINE  (FILE)  THEN 
FAILED  ("FROM  CHECKFILB:  "  & 

"LINE  COUNT  INCORRECT  -  EXPECTED  "  & 
POSITIVE_COUNT'IMAGE(LINB_COUNT)  & 

"  GOT  FROM  PILE  "  & 

POSITI VE_COUNT ' IMAGE ( LINE ( PI LE ) ) ) ; 

END  IP; 

—  NOTE:  DO  NOT  SKIP  LINE  WHEN  AT  END  OP  PAGE  BECAUSE  SKIP  LINE  WILL 

ALSO  SKIP  TSE  page  TERMINATOR.  SEE  RM  14.3.5  PARAGRAPH  1. 

IP  NOT  EXPECT  END_OP  PAGE  THEN 
IF  END  OF  PAGE  TFILE)  THEN 

FAILED  ("FROM  CHECKFILE:  PREMATURE  END  OF  PAGE") 
RAISE  STOPPROCBSSING; 

ELSE 

SKIP_LINE  (FILE); 

LINE_COUNT  LINE_COUNT  -t-  1; 

END  IF; 

END  IP; 

COL  COUNT  1; 

END  CHECK_END_OP_LINE; 

PROCEDURE  CHECK  ENDOF  PAGE  IS 
BEGIN 

IF  NOT  END  OF  PAGE  (FILE)  THEN 

failed  (^PROM  CHECK  PILE:  "  & 

"END  OF  PAGI  NOT  WHERE  EXPECTED"); 

RAISE  STOPPROCESSING; 

ELSE 

IF  PAGE  COUNT  /-  PAGE  (FILE)  THEN 
FAILED  ("FROM  CHECK_FILE:  "  & 

"PAGE  COUNT  INCORRECT  -  EXPECTED  "  & 
POSITIVECOUNT' IMAGE  (PAGE  COUNT)  & 
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Procedure  CHECKFILE  Body 


"  GOT  FROM  FILE  "  & 

POSITIVE  COUNT' IMAGE  (PAGE(FILE) ) ) ; 


END  IF; 


SKIP_PAGE  (FILE); 

PAGE_COUNT  PAGE_COUNT  +  1; 

LINE_COUNT  1; 

END  IF; 

END  CHECK  END  OF  PAGE; 


BEGIN 


RESET  (FILE,  IN_FILE); 

SETLINELENGTH  (STANDARDOUTPUT,  0); 
SET_PAGE_LENGTH  ( STANDARD_OUTPUT ,  0); 

FOR  I  IN  1  ..  CONTENTS' LENGTH  LOOP 


BEGIN 

CASE  CONTENTS  (I)  IS 
WHEN  '#'  -> 

CHECK  END_OP_LINE  (CONTENTS  (I  +  1)  -  '§'); 

WHEN  '§'  -> 

CHECK_END  OF_PAGE; 

WHEN  'X'  -> 

IF  NOT  END  OP  FILE  (FILE)  THEN 

FAILED  (^FROM  CHECK  FILE*.  "  & 

-END  OP  PILl  NOT  WHERE  EXPECTED"); 
RAISE  STOP  PROCESSING; 

END  IF; 

WHEN  OTHERS  -> 

IF  COL_COUNT  /-  COL(FILE)  THEN 

FAILED  ("PROM  CHECK_FILE:  "  & 

"COL  COUNT  INCORRECT  -  "  4 
"EXPECTED  "  &  POSITIVE  COUNT' 
INAGE(COL_COUNT)  &  "  GOT  FROM  "  & 
"PILE  "  &  POSITIVE_COUNT' IMAGE 
(COL(FILE))); 

END  IF; 

GET  (PILE,  X); 

COL  COUNT  :«  COL  COUNT  +  1; 

IF  X  /-  CONTBNTS”(I)  THEN 

PAILED("PROM  CHECK  FILE:  "  & 

"PILE  DOES  Hot  contain  correct  "  & 
"OUTPUT  -  EXPECTED  "  &  CONTENTS(I) 
i  "  -  GOT  "  4  X); 

RAISE  STOPPROCESSING; 

END  IF; 

END  CASE; 

EXCEPTION 

WHEN  STOP  PROCESSING  -> 

comment  ("FROM  CHECK  FILE:  "  4 
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Procedure  CHECK.FILE  Body 


"UST  CHARACTER  IN  FOLLOWING  STRING  "  & 
"REVEALED  ERROR:  "  &  CONTENTS  (1  I)); 

EXIT; 

END; 

END  LOOP; 

EXCEPTION 

WHEN  STATUSERROR  -> 

FAILED  ("FROM  CHECK  FILE:  "  & 

"STATUSERROR  RAISED  -  FILE  CHECKING  INCOMPLETE"); 

WHEN  MODE  ERROR  -> 

FAILED  ("FROM  CHECK_FILE:  "  & 

"MODE_ERROR  RAISED  -  FILE  CHECKING  INCOMPLETE"); 

WHEN  NAME  ERROR  >> 

FAILED  ("FROM  CHECKFILE:  "  & 

"NAME_ERROR  RAISED  -  FILE  CHECKING  INCOMPLETE"); 

WHEN  USEERROR  => 

FAILED  ("FROM  CHECKFILE:  "  & 

"USEERROR  RAISED  -  FILE  CHECKING  INCOMPLETE"); 

WHEN  DEVICEERROR  -> 

FAILED  ("FROM  CHECK  FILE:  "  & 

"DEVICEERROR  RAISED  -  FILE  CHECKING  INCOMPLETE"); 

WHEN  END_ERROR  -> 

FAILED  ("PROM  CHECK  FILE:  "  & 

"END  ERROR  RAISED  -  FILE  CHECKING  INCOMPLETE"); 

WHEN  DATA  ERROR  -> 

FAILED  ("FROM  CHECK  FILE;  "  & 

"DATA  ERROR"RAISED  -  FILE  CHECKING  INCOMPLETE"); 

WHEN  LAYOUT_ERROR  -> 

FAILED  ("FROM  CHECK  FILE:  "  & 

"LAYOUT_ERROR  RAISED  -  FILE  CHECKING  INCOMPLETE"); 

WHEN  OTHERS  => 

FAILED  ("FROM  CHECK  FILE:  "  & 

"SOME  EXCEPTION  RAISED  -  FILE  CHECKING  INCOMPLETE") 

END  CHECK  FILE; 
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APPENDIX  E 


Sample  Output  Of  Acceptance  Tests 


Test  CZIIOIA.ADA  should  produce  the  following  on  STANDARD_OUTPUT : 


-  NO  NAME  CZIIOIA-AB:  CHECK  REPORT  ROUTINES.  CHECKING  'COMMENT'. 

-  NO'NAME  CHECKING  'PUT_MSG'  FOR  PROPER  OUTPUT. 

-  NO_NAME  THIS  LINE  IS  EXACTLY  'MAX_LEN'  LONG . 5... 60 _ 5... 70.. 

-  NO_NAME  THIS  COMMENT  HAS  A  WORD  THAT  SPANS  THE  FOLD  POINT.  THIS 

COMMENT  FITS  EXACTLY  ON  TWO  LINES.  ...5... 60 _ 5... 70.. 

-  N0_NAME  THIS  COMMENT  HAS  A  WORD  THAT  ENDS  AT  THE  FOLD  POINT  ...70.. 

THE  SPACES  JUST  AFTER  THE  FOLD  POINT  SHOULD  BE  GONE. 

-  NO_NAME  THIS  COMMENT  HAS  A  WORD  THAT  BEGINS  AT  THE  FOLD  POINT. 

THIS  SHOULD  BE  ON  THE  SECOND  LINE. 

-  NONAME  THIS  COMMENT  HAS  SPACES  SPANNING  THE  FOLD  POINT.  ..5... 70 

THIS  SHOULD  BE  ON  THE  SECOND  LINE. 

-  NO_NAME 

THIS_COMMENT_IS_ONE  VERY_LONG_WORD_AND_SO_IT_SHOULD_BE_S 
PLIT_AT  THE  FOLD  POINT. 

-  NO_NAME  CHECKING  THAT  ^PORT  BODY  INITIALIZES  TO  'NO_NAME'  AND 

'FAILED'.  CHECKING  'RESULT'. 

**★*  NO  NAME  FAILED  *************★******. 

-  PASSTEST  CHECKING  'TEST'  AND  'RESULT'  FOR  'PASSED'. 

-  PASS_TEST  CHECKING  THAT  INDENTATION  OF  CONTINUATION  LINES  IS 

ADJUSTED  ACCORDING  TO  TEST  NAME  LENGTH. 

=  =  =  a  PASS  TEST  PASSED  =  =  = 

-  NO  NAME  CHECKING  'RESULT'  FOR  RESETTING  TO  'NO_NAME'  AND  'FAILED'. 
****  nO~NAME  FAILED  ***********★********. 

-  NO^NAME  CHECKING  THAT  INDENTATION  OF  CONTINUATION  LINES  IS  ADJUSTED 

ACCORDING  TO  TEST  NAME  LENGTH. 

-  FAIL_TEST  CHECKING  'FAILED'  AND  'RESULT'  FOR  'FAILED'. 

*  FAILTEST  CHECKING  'FAILED'.  NOW  'RESULT'  SHOULD  BE  'FAILED'. 

fail  test  failed  ********************. 

-  NA_TEST  CHECKING  'NOT  APPLICABLE'  AND  'RESULT'  FOR 

'NOT- APPLICABLE' . 

+  NATEST  CHECKING  'NOT  APPLICABLE'.  NOW  'RESULT'  SHOULD  BE 
'NOT-APPLI CABLE' . 

NA_TEST  NOT-APPLICABLE  ++++++++++++++++++++. 

-  FAILNA  TEST  CHECKING  'FAILED',  'NOT_APPLICABLE' ,  AND  'RESULT'  FOR 

'FAILED'. 

+  FAILNA  TEST  CHECKING  'NOT_APPLICABLE' .  NOW  'RESULT'  SHOULD  BE 
'NOT-APPLICABLE'. 

★  FAILNA  TEST  CHECKING  'FAILED'.  NOW  'RESULT'  SHOULD  BE  'FAILED'. 

+  FAIL_NA"TEST  CHECKING  'NOTAPPLICABLE' .  NOW  'RESULT'  SHOULD  STAY 

'FAILED'. 

****  fail  NA  test  FAILED  ********************. 

-  NO  NAME'END  CZIIOIA. 


Sample  Output  Ot  Acceptance  Tests 


Test  CZ1103A.ADA  should  produce  the  following  on  STANDARD_OUTPUT : 


-  CZ1103A  CHECK  THAT  PROCEDURE  CHECK  FILE  WORKS. 

-  CZ1103A  BEGIN  TEST  WITH  AN  EMPTY  FILE. 

-  CZ1103A  BEGIN  TEST  WITH  A  FILE  WITH  BLANK  LINES. 

-  CZ1103A  BEGIN  TEST  WITH  A  FILE  WITH  BLANK  LINES  AND  PAGES. 

-  CZ1103A  BEGIN  TEST  WITH  A  FILE  WITH  TRAILING  BLANKS. 

-  CZ1103A  FROM  CHECK_FILE:  THIS  IMPLEMENTATION  PADS  LINES  WITH 

BLANKS. 

-  CZ1103A  BEGIN  TEST  WITH  A  FILE  WITHOUT  TRAILING  BLANKS. 

-  CZ1103A  BEGIN  TEST  WITH  A  FILE  WITH  AN  END  OF  LINE  ERROR. 

*  CZ1103A  FROM  CHECK_PILE:  END  OF  LINE  EXPECTED  -  E  ENCOUNTERED. 

-  CZ1103A  FROM  CHECK_FILE:  LAST  CHARACTER  IN  FOLLOWING  STRING 

REVEALED  ERROR:  THIS  LINE  WILL  CONTAIN  AN  #. 

-  CZ1103A  BEGIN  TEST  WITH  FILE  WITH  END  OF  PAGE  ERROR. 

*  CZ1103A  FROM  CHECK_FILE:  END_OP  PAGE  NOT  WHERE  EXPECTED. 

-  CZ1103A  FROM  CHECK  FILE:  LAST  CHARACTER  IN  FOLLOWING  STRING 

REVEALED  ERROR:  THIS  LINE  WILL  CONTAIN  AN 

-  CZ1103A  BEGIN  TEST  WITH  PILE  WITH  END  OP  FILE  ERROR. 

*  CZ1103A  FROM  CHECK  FILE:  END  OF  FILE  NOT  WHERE  EXPECTED. 

-  CZ1103A  FROM  CHECK'FILE:  LAST  CHARACTER  IN  FOLLOWING  STRING 

REVEALED  ERROR:  THIS  LINE  WILL  CONTAIN  AN  X. 

-  CZ1103A  BEGIN  TEST  WITH  PILE  WITH  INCORRECT  DATA, 

*  CZ1103A  FROM  CHECK  FILE:  FILE  DOES  NOT  CONTAIN  CORRECT  OUTPUT  - 

EXPECTED  C  -  GOT  I. 

-  CZ1103A  FROM  CHECK  FILE:  LAST  CHARACTER  IN  FOLLOWING  STRING 

REVEALED  ERROR:  LINE  WITH  C. 

*★**  CZ1103A  FAILED  *★*******★**********. 
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